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Routine  for  Analysis  of  the  People  Movement 
Time  for  Elevator  Evacuation 

John  H.  Klote 
Daniel  M.  Alvord 


Abstract 

This  paper  is  part  of  a project  sponsored  by  the  U.S.  General  Services  Administration  (GSA)  to  study 
occupant  use  of  elevators  during  building  evacuations.  A detailed  method  of  analysis  of  people  movement 
by  elevators  during  emergency  building  evacuation  is  presented  including  the  time  for  people  to  enter  and 
exit  elevators  and  the  equations  of  elevator  car  motion.  Also  a computer  program  for  people  movement 
during  elevator  evacuation  and  examples.  Runs  of  this  are  listed  in  appendices.  The  method  and  computer 
routine  presented  in  this  paper  are  intended  to  be  used  in  a later  part  of  the  GSA  elevator  project  to  help 
study  the  feasibility  of  elevator  fire  evacuation. 


Nomenclature 

a acceleration,  m/s2  (ft/s2) 

J number  of  elevators 

m number  of  round  trips 

N number  of  people  entering  or  leaving  the  elevator 

Ndw  number  of  people  entering  or  leaving  the  elevator  during  the  dwell  time 

S distance,  m (ft) 

ST  total  floor  to  floor  travel  distance  for  trip,  m (ft) 
t time,  s (s) 

ta  elevator  evacuation  start  up  time,  s (s) 

td  time  for  elevator  doors  to  open  and  close,  s (s) 

tfa  dwell  time  for  elevator  doors,  s (s) 

te  evacuation  time,  s (s) 

th  time  for  leveling  elevator  of  elevator  car,  s (s) 

tt  time  for  N people  to  enter  elevator  car,  s (s) 

tio  time  for  one  person  to  enter  elevator  car,  s (s) 

t0  travel  time  from  elevator  lobby  to  outside  or  to  other  safe  location,  s (s) 

tr  time  for  elevator  car  to  make  a round  trip,  s (s) 

ts  standing  time,  s (s) 

tu  time  for  N people  to  leave  elevator  car,  s (s) 

tuo  time  for  one  person  to  leave  elevator  car,  s (s) 

V velocity,  m/s  (ft/s) 

Vm  normal  operating  velocity,  m/s  (ft/s) 

a basic  transfer  inefficiency 


1 


H total  transfer  inefficiency,  \l  - cl  + e + y 
e door  transfer  inefficiency 

7 other  transfer  inefficiency 

rj  trip  inefficiency 

Subscripts 

T end  of  leveling  car  motion  (also  end  of  travel) 

1 end  of  constant  acceleration  motion 

2 end  of  transitional  acceleration  motion 

3 end  of  constant  velocity  motion 

4 end  of  transitional  deceleration  motion 

5 end  of  constant  deceleration  motion 


1.  Introduction 

Throughout  most  of  the  world,  signs  next  to  elevators  indicate  they  should  not  be  used  in  fire  situations; 
stairwells  should  be  used  for  fire  evacuation.  These  elevators  are  not  intended  as  means  of  fire  egress, 
and  they  should  not  be  used  for  fire  evacuation  (Sumka  1987).  The  idea  of  using  elevators  to  speed  up 
fire  evacuation  and  to  evacuate  persons  with  disabilities  has  gained  considerable  attention  (Bazjanac  1974, 
Bazjanac  1977,  Pauls  1977,  Pauls,  Gatfield  and  Juillet  1991,  Gatfieid  1991,  Degenkolb  1991,  and  Fox 
1991). 

This  paper  is  part  of  a project  sponsored  by  the  U.S.  General  Services  Administration  (GSA)  to  study 
occupant  use  of  elevators  during  building  evacuations.  Aspects  of  emergency  elevator  evacuation  to  be 
addressed  in  this  project  are  systems  concepts,  engineering  design  considerations,  and  human  behavior. 
Smoke  control  for  elevators  has  already  been  addressed  under  this  project  (Klote  and  Tamura  1991). 

This  paper  presents  a detailed  method  of  analysis  of  people  movement  by  elevators  during  emergency 
building  evacuation,  based  on  principles  of  elevator  engineering  (Strakosch  1983).  Bazjanac  (1977)  and 
Pauls  (1977)  have  developed  methods  of  calculation  of  evacuation  time  by  elevator,  but  the  method 
presented  here  incorporates  more  detail  about  elevator  motion  and  elevator  loading  and  unloading.  Also 
a computer  program,  ELVAC,  for  people  movement  during  elevator  evacuation  is  described  and  example 
calculations  are  presented.  Appendix  A is  a listing  of  the  ELVAC  program,  and  appendices  B,  C and  D 
are  example  applications  of  the  program.  The  method  and  computer  routine  presented  in  this  paper  are 
intended  to  be  used  in  a later  part  of  the  GSA  elevator  project  to  help  study  the  feasibility  of  elevator  fire 
evacuation.  Other  people  wanting  to  evaluate  the  extent  to  which  elevators  can  speed  up  evacuation  may 
also  want  to  use  the  methods  presented  in  this  paper. 

The  sequence  of  elevator  operation  for  emergency  evacuation  is  complicated  and  has  many  possible 
variations.  The  following  general  sequence  is  presented  to  provide  a framework  for  the  method  of 
analysis  presented  in  this  paper.  Upon  activation  of  emergency  evacuation,  elevators  in  normal  service 
will  go  to  a discharge  floor  where  any  passengers  on  the  elevators  will  exit.  This  discharge  floor  may 
either  lead  to  the  outside  or  lead  to  an  area  of  relative  safety  where  people  may  stay  during  the  fire.  The 
elevators  will  make  a number  of  round  trips  to  transfer  occupants  from  other  floors  to  the  discharge  floor. 
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During  evacuation,  the  elevators  may  be  under  a special  emergency  evacuation  mode  of  automatic  control 
or  under  manual  control. 

The  evacuation  time  addressed  in  this  paper  is  an  idealized  time  for  people  movement  which  does  not 
account  for  the  complex  human  behavior  that  often  occurs  during  emergencies.  It  is  believed  that  the 
analysis  of  this  paper  is  about  as  accurate  as  that  for  evacuation  by  stairs*.  There  is  little  guidance 
available  regarding  the  extent  to  which  actual  evacuation  time  is  greater  than  the  idealized  times  for  stairs 
or  elevators,  but  Nelson  and  MacLennan  (1988)  indicate  that  actual  evacuation  time  can  be  two  or  even 
three  times  as  long.  The  approximate  nature  of  such  calculations  should  be  taken  into  account  in  any 
applications  of  the  methods  presented  in  this  paper. 


2.  Evacuation  Time 

Analysis  of  people  movement  during  elevator  evacuation  must  take  into  account  the  number  and 
arrangement  of  elevators  in  a building.  Generally  elevators  are  located  in  groups  of  up  to  eight  elevators. 
Elevators  in  a group  are  located  near  each  other  and  are  controlled  together  to  efficiently  move  people. 
Arrangements  of  elevator  groups  are  discussed  later.  The  method  of  analysis  and  the  computer  program 
of  this  paper  are  for  the  calculation  of  the  evacuation  time  for  one  group  of  elevators.  For  buildings  with 
multiple  groups  of  elevators,  the  approach  presented  in  this  paper  can  be  applied  separately  to  each  group 
of  elevators. 

Ideally  the  time  to  evacuate  a number  of  people  using  one  group  of  elevators  consists  of  the  sum  of  all 
the  round  trip  times  divided  by  the  number  of  elevators  plus  the  time  needed  to  start  up  the  elevator 
evacuation  and  the  travel  time  from  the  elevator 
Accounting  for  inefficiencies  of  elevator  operation, 


lobby  to  the  outside  (or  to  another  safe  location), 
this  evacuation  time  can  be  expressed  as 


(1  + TQ 
J 


7-1 


(1) 


where  trj  is  the  time  for  round  trip  j,  m is  the  number  of  round  trips,  J is  the  number  of  elevators,  rj  is 
the  trip  inefficiency,  ta  is  elevator  evacuation  start  up  time,  and  t0  is  the  travel  time  from  the  elevator 
lobby  to  the  outside  or  to  another  safe  location.  The  round  trip  time  depends  on  the  travel  time  of  the 
elevator  and  on  the  number  of  people  carried  by  the  elevator  as  discussed  later.  The  travel  time  from  the 
elevator  lobby  to  a safe  location  can  be  evaluated  by  conventional  methods  of  people  movement  [i.e. 
Nelson  and  MacLennan  (1988)  or  Pauls  (1988)].  The  trip  inefficiency  accounts  for  trips  to  empty  floors 
and  trips  to  pick  only  a few  stragglers.  The  elevator  evacuation  start  up  time  is  discussed  in  the  next 
section. 


*For  a discussion  of  times  for  people  movement  during  emergency  evacuation  on  stairs,  readers  are 
referred  to  Nelson  and  MacLennan  (1988)  and  Pauls  (1988). 
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The  number  of  elevators,  7,  used  in  equation  (1)  may  be  less  than  the  number  of  elevators  in  the  group 
to  account  for  out-of-service  elevators.  The  probability  of  elevators  being  out-of-service  depends  on  a 
number  of  factors  including  the  age  of  the  elevators  and  the  quality  of  maintenance.  Because  the  out-of- 
service condition  can  significantly  increase  elevator  evacuation  time,  any  analysis  of  elevator  evacuation 
should  take  this  condition  into  account. 


3.  Start  Up  Time 

The  elevator  evacuation  start  up  time  is  the  time  from  activation  to  the  start  of  the  round  trips  that 
evacuate  people.  For  automatic  elevator  operation  during  evacuation,  a simple  approach  is  to  start 
elevator  evacuation  after  all  of  the  elevators  have  been  moved  to  the  discharge  floor.  For  this  approach, 
the  start  up  time,  ra,  consists  of  the  time  for  elevators  to  go  to  the  discharge  floor  plus  the  time  for  the 
passengers  to  leave  the  elevators.  This  can  be  expressed  as 

= tT  + (f.  + f*)(l  + n)  (2) 


where  tT  is  the  travel  time  for  the  elevator  car  to  go  from  the  farthest  floor  to  the  discharge  floor,  tu  is 
the  time  for  passengers  to  leave  the  elevator,  td  is  the  time  for  the  doors  to  open  and  close  once,  and  \i 
is  the  total  transfer  inefficiency.  These  terms  are  discussed  in  detail  later. 

An  alternative  to  the  simple  approach  discussed  above  consists  of  starting  the  evacuation  operation 
individually  for  each  elevator  when  it  reaches  the  discharge  floor.  This  alternative  could  result  in  slightly 
reduced  evacuation  time.  However,  this  alternative  is  not  discussed  further  here,  because 
of  its  limited  benefit  and  added  complexity. 

For  manual  elevator  operation,  the  time  for  elevator  operators  to  be  alerted  and  then  get  to  the  elevators 
must  be  included  in  the  estimate  of  start  up  time.  This  additional  time  may  be  considerably  greater  than 
that  calculated  from  equation  (2). 


4.  Elevator  Round  Trip  Time 

The  round  trip  starts  at  the  discharge  floor  and  consists  of  the  following  sequence:  elevator  doors  close, 
car  travels  to  another  floor,  elevator  doors  open,  passengers  enter  the  car,  doors  close,  car  travels  to 
discharge  floor,  doors  open,  and  passengers  leave  the  car.  The  round  trip  time,  tr , is  can  be  written  as 
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where  ts  is  the  standing  time  and  tT  is  the  travel  time  for  one  way  of  the  round  trip.  This  equation  is 
based  on  the  elevator  only  stopping  at  one  floor  to  pick  up  passengers.  It  is  expected  that  most  elevators 
will  fill  up  on  one  floor  and  proceed  to  the  discharge  floor.  What  constitutes  a full  elevator  is  discussed 
later.  If  an  elevator  stops  to  pick  up  passengers  at  more  than  one  floor  during  a round  trip,  equation  (3) 
can  be  modified  accordingly.  However,  the  trip  inefficiency  accounts  for  such  multiple  stops. 


4.1  Standing  Time 

The  standing  time  is  the  sum  of  the  time  to  open  and  close  the  elevator  doors  twice,  the  time  for  people 
to  enter  the  elevator,  and  the  time  for  people  to  leave  the  elevator.  Considering  transfer  inefficiencies, 
the  standing  time  for  a round  trip  can  be  expressed  as 

ta  = (*,  - tu  + 2^(1  + n)  W 


where 

\i  = a + e + y 


The  basic  transfer  inefficiency,  a , allows  for  rounding  off  of  probable  stops,  door  operating  time,  door 
starting  and  stopping  time,  and  the  unpredictability  of  people.  Typically  a value  of  0.10  is  used  for  the 
basic  transfer  inefficiency  for  commonly  accepted  arrangements  of  elevator  groups  as  illustrated  in  figure 
1.  For  each  of  these  arrangements,  the  configuration  of  the  elevator  lobby  is  such  that  passengers  can 
recognize  which  elevator  has  arrived  and  get  on  the  elevator  without  excessive  delay.  Further,  these 
lobbies  have  sufficient  space  so  that  people  exiting  one  elevator  will  have  a minimal  impact  on  the  flow 
of  people  leaving  another  elevator. 

Arrangements  of  elevator  groups  other  than  those  commonly  accepted  can  be  less  efficient  and  require 
an  increased  value  of  the  basic  transfer  inefficiency.  These  unusual  arrangements  include  cars  separated 
[fig  2(a)],  too  many  cars  in  a line  [fig  2(b)],  angular  arrangement  [fig  2(c)],  and  cornered  arrangement 
[fig  2(d)].  Separation  of  elevators  results  in  increased  boarding  time  for  passengers  waiting  by  one 
elevator  to  walk  to  another  when  it  arrives.  If  the  separation  is  too  large,  some  passengers  choose  to  let 
elevators  go  by  without  boarding.  Use  of  too  many  elevators  in  a line  has  similar  inefficiencies.  With 
the  angular  arrangement  [fig  2(c)],  cars  at  the  narrow  end  tend  to  be  to  close  together  while  cars  at  the 
wide  end  tend  to  be  too  far  apart.  In  the  cornered  arrangement  [fig  2(d)],  passengers  entering  or  leaving 
comer  cars  tend  to  interfere  with  each  other. 

The  door  inefficiency,  e,  is  used  to  adjust  for  any  increase  in  transfer  time  over  that  of  a 1200  mm  (48 
in)  wide  center  opening  door.  Values  of  e are  listed  in  table  1.  The  inefficiency,  y,  is  used  to  account 
for  any  other  inefficiencies  in  people  transfer  into  or  out  of  elevators,  such  as  increased  movement  times 
within  an  elevator  car  due  to  an  unusual  elevator  car  shape  or  limited  physical  capability  of  passengers. 
For  example,  y often  is  chosen  to  be  0.05  for  hospital  elevators.  Generally  for  office  buildings,  y is  taken 
as  zero. 
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The  time,  td,  for  the  doors  to  open  and  close  depends  on  the  width  and  type  of  the  doors  as  listed  in  table 
1.  The  kinetic  energy  of  closing  doors  is  limited  by  elevator  safety  codes  and  is  usually  not  more  than 
0.29  J (7  ft  poundal**).  This  is  why  doors  from  different  manufacturers  take  about  the  same  time  to 
open  and  close.  Types  of  elevator  doors  are  shown  in  figure  3.  Door  operating  time  is  important  because 
of  the  many  times  that  doors  open  and  close  during  an  evacuation.  Further,  an  elevator  can  not  leave  a 
floor  before  the  doors  are  closed  and  locked,  and  passengers  can  not  leave  an  elevator  until  the  doors  are 
fully  opened  or  nearly  fully  opened.  Generally  elevator  doors  do  not  open  until  the  car  has  stopped  and 
is  level  with  the  floor.  However,  some  center  opening  doors  start  opening  while  the  car  is  leveling,  and 
the  times  listed  in  table  1 should  be  reduced  by  one  second  for  these  preopening  doors. 

The  time,  tt,  for  people  to  enter  an  elevator  depends  on  the  number,  N , of  people  entering  and  on  the 
door  operation.  As  previously  stated,  it  is  expected  that  most  elevators  will  fill  up  on  one  floor  and 
proceed  to  the  discharge  floor.  However,  elevators  will  be  less  than  full  when  there  are  not  enough  people 
waiting  in  the  lobby  to  fill  an  elevator  or  elevators.  Thus  the  analysis  must  include  partially  filled 
elevators.  Strakosch  (1983)  has  observed  elevator  loadings  for  which  passengers  will  not  board  an 
elevator  and  choose  to  wait  for  the  next  one.  These  observed  values  are  based  on  0.22  m2  (2.3  ft2)  of 
floor  space  in  the  elevator  car  per  person.  It  should  be  noted  that  the  ASME  A17.1  (1987)  elevator 
standard  allows  a maximum  loading  at  0.14  m2  (1.5  ft2)  per  person,  but  this  high  density  is  not  achieved 
in  normal  practice.  For  this  study,  the  observed  values  of  Strakosch  are  used  as  the  number  of  persons 
in  a full  elevator  car,  and  these  loadings  are  listed  in  tables  3 and  4. 

When  elevator  doors  open,  the  doors  remain  open  for  a least  fixed  time  referred  to  as  the  dwell-time,  tdw. 
The  time  that  the  door  is  open  can  be  extended  beyond  the  dwell-time  by  blocking  of  the  light  beam 
across  the  door  opening  or  by  pushing  the  door  safety  edge.  The  time,  ti9  for  N people  to  enter  an 
elevator  car  can  be  expressed  as 


forNs.2 

+ ‘JN  ~ NJ  f°r  N>2 


(5) 


where  the  Ndw  is  the  number  of  people  entering  the  elevator  during  the  dwell  time,  and  tio  is  the  average 
time  for  one  person  to  enter  the  elevator.  The  number  of  people  entering  the  elevator  during  the  dwell 
time  is  the  term  (tdJtio)  rounded  down  to  the  nearest  integer.  The  time  for  N people  to  leave  an  elevator 
can  be  expressed  in  a similar  manner. 


**The  poundal  is  the  unit  of  force  in  the  pound  mass-poundal  system  of  units,  and  one  poundal  equals 
0.03 11  pounds  force. 
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+ tJN  - NJ  for  N>  2 


for  N± 2 


(6) 


For  the  computer  program  of  this  paper,  the  dwell-time  is  taken  to  be  4 seconds,  the  average  time  for 
one  passenger  to  enter  an  elevator  is  taken  to  be  1 second,  and  the  average  time  for  one  passenger  to 
leave  an  elevator  is  taken  to  be  0.6  seconds. 


4.2  Travel  Time 

Elevator  motion  is  depicted  in  figure  4 for  most  trips.  Motion  starts  with  constant  acceleration,  followed 
by  transitional  acceleration,  and  constant  velocity  motion.  Constant  acceleration  ends  when  the  elevator 
reaches  a predetermined  velocity  which  is  typically  about  60%  of  the  normal  operating  velocity  (V{  = 
0.6^.  For  office  buildings,  the  normal  operating  velocity  is  generally  from  1 to  9 m/s  (200  to  1800 
fpm),  and  acceleration  is  from  0.6  to  2.4  m/s2  (2  to  8 ft/s2) . Deceleration  has  the  same  magnitude  as  the 
acceleration,  and  the  total  acceleration  time  equals  the  total  deceleration  time  ( t2  = t5  - . The  method 

of  analysis  that  follows  takes  advantage  of  this  symmetry. 

Analysis  of  elevator  motion  that  reaches  the  normal  operating  velocity  is  presented  next.  For  short  trips 
elevators  do  not  always  reach  the  normal  operating  velocity,  and  methods  of  analysis  for  these  short  trips 
are  presented  later. 

Motion  Reaching  Normal  Operating  Velocity 

The  time  to  complete  constant  acceleration  motion  (going  to  point  1 on  figure  4)  is 


V, 


a 


The  distance  traveled  during  constant  acceleration  is 


S 


(8) 


2 a 


Transitional  acceleration  is  approximated  by  considering  the  product  of  velocity  and  acceleration  to  be 
a constant.  The  time  to  reach  the  end  of  transitional  acceleration  (point  2 of  figure  4)  is 


7 


(9) 


vj  - Vi  , 

2 Vxa  + 1 


The  distance  traveled  by  the  end  of  transitional  acceleration  is 


S , = 


3 a 


( y3 
* _ 

~F  1 


(10) 


The  one  way  travel  time  is 


U = 2 U + 


5T  - 25. 


(11) 


The  leveling  time  must  be  added  to  the  above  time  to  get  the  total  travel  time  for  a one  way  trip. 


*T  = *5  + h 


(12) 


Usually  elevators  do  not  stop  exactly  at  the  desired  floor  at  the  end  deceleration,  so  the  elevator  must  be 
moved  slowly  up  or  down  to  get  it  nearly  level  with  the  floor.  For  calculations  in  this  paper,  leveling 
time,  th,  is  taken  to  be  0.5  seconds. 


Motion  Reaching  Transitional  Acceleration 

If  the  trip  is  too  short  for  the  elevator  to  reach  the  normal  operating  velocity,  but  it  reaches  transitional 
acceleration,  the  velocity  is  represented  by  either  figure  5(a).  The  time,  tx,  and  distance,  Sj , traveled 
during  constant  acceleration  are  given  by  equations  (7)  and  (8).  The  velocity  at  the  end  of  transitional 
acceleration  is 


+ 3a  Vl 


Y|l/3 


(13) 


The  time  at  the  end  of  transitional  acceleration  is 


8 


yj  - yj 

2 aV1 


+ t , 


(14) 


The  one  way  travel  time  is 


(15) 


Motion  Not  Reaching  Transitional  Acceleration 

When  the  trip  does  not  go  beyond  constant  acceleration,  the  motion  is  illustrated  in  figure  5(b).  The  one 
way  travel  time  is 


(16) 


Example  1.  Round  Trip  Time  in  SI  Units 

A 1600  kg  elevator  in  an  office  building  makes  a round  trip  from  the  ground  floor  to  pick  up  a 
full  load  of  passengers  from  the  21st  floor  and  return  them  to  the  ground  floor.  The  operating 
velocity  is  3 m/s  with  an  acceleration  of  1.2  m/s2,  and  the  elevator  door  is  1200  mm  wide  center- 
opening.  The  distance  between  floors  is  3.2  m,  and  the  total  travel  distance,  ST,  is  64  m. 

From  table  2,  the  number  of  people  in  the  full  elevator  is  approximated  at  16.  From  table  1,  td 
is  5.3  s,  and  e is  0.  The  elevator  shape  is  not  unusual  and  the  passenger  capability  is  normal,  so 
7 is  0.  The  total  transfer  inefficiency  is 

l±  = a+  e+  Y=  0.10  + 0 + 0 = 0.10 

From  equation  (5),  the  time  for  16  people  to  enter  the  elevator  is 

t.  = N = 16  s 

From  equation  (6),  the  time  for  16  people  to  leave  the  elevator  is 
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tu  = 4 + 0.6 {N  - 6)  = 4 + 0.6(16  - 6)  = 10s 


From  equation  (4),  the  standing  time  is 

ts  = (f,  + + 2^(1  + |i)  = (16  + 10  +2(5.3))(1  + 0.1)  = 40.26  s 


Consider  Vx  is  60%  of  Vm,  then 

Kj  = 0.6  Vm  = 0.6(3)  = 1.8  m/s 


From  equation  (7),  the  time  at  the  end  of  constant  acceleration  is 

tl  - H - M = 1.5s 

1 a 1.2 


From  equation  (8),  the  distance  traveled  during  constant  acceleration  is 


S , = — = = 1.35m 

1 2 a 2(1.2) 


From  equation  (9),  the  time  at  the  end  of  transitional  acceleration  is 

t,  - ♦ fl  + 1.5  . 2.83s 

2 2Kj  a 1 2(1.8)(1.2) 


From  equation  (10),  the  distance  traveled  by  the  end  of  transitional  acceleration  is 


S2  = — 
2 3 a 


‘vl 


-vl 


+ st  = 


1 3(1.2)  V 18 


- 1.82 


+ 1.35  = 4.62  m 


The  one  way  travel  time  is  calculated  from  equation  (11). 


t , = 2 12  + — — — = 2(2.83)  + — — 2(4'62)  = 23.9 


The  total  travel  time  is  calculated  from  equation  (12). 
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XT  = f5  + Xk  = 23  9 + 05  = 24.4  S 
The  round  trip  time  is  calculated  from  equation  (3). 

tr  = 2tr  + xs  = 2(24.4)  + 40.3  = 89.1s 


Example  2.  Round  Trip  Time  in  English  Units 

A 3500  lb  elevator  in  an  office  building  makes  a round  trip  from  the  ground  floor  to  pick  up  a 
full  load  of  passengers  from  the  21st  floor  and  return  them  to  the  ground  floor.  The  operating 
velocity  is  600  fpm  with  an  acceleration  of  4 ft/s2,  and  the  elevator  door  is  48  in  wide  center- 
opening. The  distance  between  floors  is  10.5  ft,  and  the  total  travel  distance,  ST,  is  210  ft. 

From  table  3,  the  number  of  people  in  the  full  elevator  is  approximated  at  16.  From  table  1,  td 
is  5.3  s,  and  e is  0.  The  elevator  shape  is  not  unusual  and  the  passenger  capability  is  normal,  so 
7 is  0.  The  total  transfer  inefficiency  is 

|i  = a+  e+  Y=  0.10  + 0 + 0 = 0.10 


From  equation  (5),  the  time  for  16  people  to  enter  the  elevator  is 

tt  = N - 16  s 


From  equation  (6),  the  time  for  16  people  to  leave  the  elevator  is 

tu  = 4 + 0.6(7/  - 6)  = 4 + 0.6(16  - 6)  = 10s 


From  equation  (4),  the  standing  time  is 

f5  = (ri  + tu  + 2^)(1  + \l)  = (16  + 10  +2(5.3))(1  + 0.1)  = 40.26  s 

Consider  Vx  is  60%  of  Vm,  then 

Vx  = 0.6  Vm  = 0.6(3)  = 1.8  m/s 


The  normal  operating  velocity  is 
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V = 600—  = 10  ft/s 

min  60  s 

From  equation  (7),  the  time  at  the  end  of  constant  acceleration  is 


t,  = -^  = - = 1.5  s 
1 a 4 


From  equation  (8),  the  distance  traveled  during  constant  acceleration  is 


S , = — = -^L  = 4.5  ft 
1 la  2(4) 


From  equation  (9),  the  time  at  the  end  of  transitional  acceleration  is 


= - V'  + . .flggjjg  + 1.5  = 2. 

2Vta  1 2(6X4) 


83  s 


From  equation  (10),  the  distance  traveled  by  the  end  of  transitional  acceleration  is 


S2  = — 
2 3 a 


y 3 

* _ \fl 

y 

V Ki 


+ = 


3(4) 


103 


- 62 


+ 4.5  = 15.4  ft 


The  one  way  travel  time  is  calculated  from  equation  (11). 


, = 2f,  + St—-S'2  = 2(2.83)  + 210  ' 2(1S'4)  = 23.6s 
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The  total  travel  time  is  calculated  from  equation  (12). 

tT  = t5  + tk  = 23.6  + 0.5  = 24.1  s 


The  round  trip  time  is  calculated  from  equation  (3). 


tr  = 2 tT  * ts  = 2(24.1)  + 40.3  = 88.5  s 
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5.  Computer  Elevator  Evacuation  Analysis 


A computer  program  (EL VAC),  written  in  Quick  BASIC,  for  analysis  of  elevator  evacuation  is  listed  in 
appendix  A.  This  program  calculates  evacuation  time  for  one  group  of  elevators.  For  buildings  with 
multiple  groups  of  elevators,  the  program  can  be  used  a number  of  times  to  calculate  the  evacuation  time 
for  each  group. 


Example  3.  Elevator  evacuation  time 

Estimate  the  time  needed  for  elevator  evacuation  of  all  the  people  from  the  upper  1 1 floors  of  a 
21  story  building  to  the  outside  of  the  building.  Additionally,  3%  of  the  people  on  the  other 
floors  are  included  in  the  elevator  evacuation.  The  rest  of  the  people  on  the  lower  floors  will  use 
the  stairs.  Each  floor  is  occupied  by  90  people.  A group  of  six  1600  kg  (3500  lb)  elevators  are 
used  for  the  evacuation,  and  the  elevator  doors  are  1200  mm  (48  in)  wide,  center  opening.  One 
of  the  six  cars  is  considered  out-of-service,  thus  only  five  of  the  cars  are  used  in  the  analysis. 
Other  parameters  of  this  example  are  listed  in  table  4. 

Table  5 lists  trip  times  and  the  evacuation  time  calculated  by  ELVAC.  The  evacuation  time  using 
five  elevators  is  calculated  at  1258  s or  about  21  minutes. 

Discussion  of  table  5 provides  insight  into  the  computer  program.  The  round  trip  time  for  floor  21  is  89. 1 
s (the  same  as  calculated  in  example  1).  In  order  to  move  90  people  from  floor  21,  the  elevator  trips  are 
considered  to  consist  of  five  trips  with  a full  car  (16  people)  plus  one  trip  of  a partially  filled  (10  people) 
car.  The  time  for  the  partially  filled  round  trip  is  78.6  s (not  shown  in  table  5).  Thus  the  total  trip  time 
to  move  90  people  from  floor  21  is  5(89.1)  + 78.6  = 524.1  s.  This  time  is  listed  under  the  heading 
"Time  per  Floor"  for  floor  21  in  the  table. 

On  floor  10  of  this  example  3%  of  90  people  are  evacuated,  this  is  rounded  up  to  three  people.  Because 
this  is  done  by  one  trip,  the  round  trip  time  of  45.8  s listed  in  table  5 is  for  moving  3 people  rather  than 
the  full  car  load  of  16.  The  total  round  trip  time  of  5395.6  s is  sum  of  all  the  round  trips  to  move  people 
from  all  the  floors.  The  evacuation  time  of  1258.3  s using  5 elevators  was  calculated  from  equation  (1). 


6.  Summary 

A detailed  method  of  analysis  of  people  movement  by  elevators  during  emergency  building  evacuation 
is  presented.  This  method  is  for  one  group  of  elevators.  For  buildings  with  multiple  groups  of  elevators, 
the  approach  presented  in  this  paper  can  be  applied  separately  to  each  group.  The  time  to  evacuate  a 
number  of  people  using  one  group  of  elevators  includes  the  sum  of  all  the  round  trip  times  divided  by 
the  number  of  elevators  plus  the  times  needed  to  start  up  the  elevator  evacuation  and  to  travel  from  the 
elevator  lobby  to  the  outside  or  to  another  safe  location.  A trip  inefficiency  is  used  to  account  for  trips 
to  empty  floors  and  trips  to  pick  up  a few  stragglers. 

The  round  trip  starts  at  the  discharge  floor  and  consists  of  the  following  sequence:  elevator  doors  close, 
car  travels  to  another  floor,  elevator  doors  open,  passengers  enter  the  car,  doors  close,  car  travels  to 
discharge  floor,  doors  open,  and  passengers  leave  the  car.  The  round  trip  time  is  the  sum  of  the  standing 
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time  plus  twice  the  one  way  travel  time.  The  standing  time  is  the  sum  of  the  time  to  open  and  close  the 
elevator  doors  twice,  the  time  for  people  to  enter  the  elevator,  and  the  time  for  people  to  leave  the 
elevator.  Elevator  travel  time  is  described  by  equations  of  motion  under  conditions  of  constant 
acceleration,  constant  velocity,  and  transitional  acceleration  between  the  first  two.  The  computer  program 
ELVAC  can  be  used  to  calculate  people  movement  during  elevator  evacuations. 
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Table  1 . Door  Operating  Time  and  Transfer  Inefficiency 


Door  Type 

Width 
mm  (in) 

Time1  to  Open 
and  Close 
td{  s) 

Door  Transfer 
Inefficiency 
e 

Single-Slide 

900  (36) 

6.6 

0.10 

Two-Speed 

900  (36) 

5.9 

0.10 

Center-Opening2 

900  (36) 

4.1 

0.08 

Single-Slide 

1100  (42) 

7.0 

0.07 

Two-Speed 

1100  (42) 

6.6 

0.07 

Center-Opening2 

1100  (42) 

4.6 

0.05 

Two-Speed 

1200  (48) 

7.7 

0.02 

Center-Opening2 

1200  (48) 

5.3 

0 

Two-Speed 

1400  (54) 

8.8 

0.02 

Center-Opening2 

1400  (54) 

6.0 

0 

Two-Speed 

1600(60) 

9.9 

0.02 

Center-Opening2 

1600(60) 

6.5 

0 

Two-Speed,  Center- 
Opening2 

1600(60) 

6.0 

0 

lTime  to  open  and  close  doors  includes  0.5  second  for  car  to  start. 

2When  preopening  can  be  used,  the  time  to  open  and  close  these  doors  can  be  reduced  by  1 
second. 
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Table  2.  Car  size  and  observed  loading  in  SI  Units 


Car  Inside  (mm) 

Observed 

Capacity 
kg  (lb) 

Wide 

Deep 

Area  (m2) 

Loading1 

(people) 

1200  (2640) 

2100 

1300 

2.73 

10 

1400  (3080) 

2100 

1450 

3.05 

12 

1600  (3520) 

2100 

1650 

3.47 

16 

1600  (alt.) 

2350 

1450 

3.41 

16 

1800  (3960) 

2100 

1800 

3.78 

18 

1800  (alt.) 

2350 

1650 

3.88 

18 

2000  (4400) 

2350 

1800 

4.23 

20 

2250  (4950) 

2350 

1950 

4.58 

22 

2700  (5940) 

2350 

2150 

5.05 

25 

*See  footnote  on  table  3. 

Table  3.  Car  size  and  observed  loading 

in  English  Units 

Car  Inside  (in) 

Observed 

Capacity 

(lb) 

Wide 

Deep 

Area  (ft2) 

Loading1 

(people) 

2000 

68 

51 

24.1 

8 

2500 

82 

51 

29.0 

10 

3000 

82 

57 

32.5 

12 

3500 

82 

66 

37.6 

16 

3500  (alt.) 

92 

57 

36.4 

16 

4000 

82 

73 

41.6 

19 

4000  (alt.) 

92 

66 

42.2 

19 

4500 

92 

72 

46.0 

21 

5000 

92 

77 

49.2 

23 

6000 

92 

90 

57.5 

27 

1This  loading  is  given  by  Strakosch  (1983)  as  that  for  which  passengers  will  not  board  an  elevator 
and  choose  to  wait  for  the  next  one. 
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Table  4.  Parameters  for  Example  3 


Number  of  Stories 

21 

Number  of  Elevator  Cars 

5 

Number  of  People  Per  Floor 

90 

Percent  of  People  Evacuating  by  Elevators  From  Floors  2 to  10 

3 

Percent  of  People  Evacuating  by  Elevators  From  Floors  11  to  21 

100 

Height  Between  Floors 

3.2  m (10.5  ft) 

Operating  Velocity  of  Elevator  Car,  Vm 

3.0  m/s  (590  fpm) 

Car  Acceleration,  a 

1.20  m/s2  (3.94  ft/s2) 

Other  Transfer  Inefficiency,  y 

0 

Trip  Inefficiency,  y 

0.10 

Car  Full  Load 

16  people 

18 


19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 


Table  5.  Elevator  trip  and  evacuation  time  calculated  by  ELVAC  computer  program 


Round  Number 


Elevation 

(m)  (ft) 

One  Way 
Trip 
Time  (s) 

Trip 

Time  (s) 

People 
on  Floor 

Percent 

Elevator 

Evacuation 

of 

Round 

Trips 

64.0 

210.0 

24.4 

89.1 

90 

100 

6 

60.8 

199.5 

23.4 

87.0 

90 

100 

6 

57.6 

189.0 

22.3 

84.8 

90 

100 

6 

54.4 

178.5 

21.2 

82.7 

90 

100 

6 

51.2 

168.0 

20.2 

80.6 

90 

100 

6 

48.0 

157.5 

19.1 

78.4 

90 

100 

6 

44.8 

147.0 

10.2 

76.3 

90 

100 

6 

41.6 

136.5 

17.0 

74.2 

90 

100 

6 

38.4 

126.0 

15.9 

72.0 

90 

100 

6 

35.2 

115.5 

14.2 

69.9 

90 

100 

6 

32.0 

105.0 

13.8 

67.8 

90 

100 

6 

28.8 

94.5 

12.7 

45.8 

90 

3 

1 

25.6 

84.0 

11.6 

43.7 

90 

3 

1 

22.4 

73.5 

10.6 

41.6 

90 

3 

1 

19.2 

63.0 

9.5 

39.4 

90 

3 

1 

16.0 

52.5 

8.4 

37.3 

90 

3 

1 

12.8 

42.0 

7.4 

35.2 

90 

3 

1 

9.6 

31.5 

6.3 

33.0 

90 

3 

1 

6.4 

21.0 

5.2 

30.8 

90 

3 

1 

3.2 

10.5 

3.8 

28.0 

90 

3 

1 

0.0 

0.0 

Total  round  trip  time 
Start  up  time 

Time  to  get  outside  after  leaving  the  elevator 
Evacuation  time  using  5 elevators 


Time  per 
Floor  (s) 

524.1 

511.3 

498.5 

485.7 

472.9 

460.1 

447.3 

434.5 

421.7 

408.9 

396.1 
45.8 

43.7 
41.6 
39.4 

37.3 
35.2 

33.0 

30.8 

28.0 


5395.6 

41.3 

30.0 

1258.3 
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1.75A  z B z 2A 

(h)  Six  Car  Group 


(g)  Six  Car  Group 


s 

i 

T 

B 

J_ 


Both  Ends  of 
Lobby  Open 


B-2A 

(i)  Eight  Car  Group 


Figure  1.  Commonly  accepted  elevator  arrangements 
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Corridor 


(a)  Cars  Separated 


(c)  Angular  Arrangement 


(b)  Too  Many  Cars  in  a Line 


1 r — 1 r 


(d)  Cornered  Arrangement 


Figure  2.  Unusual  elevator  arrangements  resulting  in  inefficient  people  movement 


(a)  Single-Sliding  Door 


(b)  Two-Speed  Sliding  Doors 


(c)  Two-Speed,  Center-Opening  Doors 


(d)  Center  Opening  Doors 




n 

(e)  Vertical  Biparting  Doors 


Figure  3.  Types  of  elevator  doors 
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Velocity 


Figure  4.  Velocity  of  elevator  reaching  normal  operating  velocity,  Vm 


Transitional  Transitional 
Acceleration  Deceleration  Leveling 


(a)  Car  Reaching  Transitional  Acceleration 


(b)  Car  Not  Reaching 

Transitional  Acceleration 


Figure  5.  Velocity  of  elevators  not  reaching  normal  operating  velocity 
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Appendix  A Listing  of  ELVAC  Computer  Program 


DEFDBL  A-Z 

' **************************** 

'PROGRAM  ELVAC* 
• **************************** 


A 

Asi 

BAS TRANS IN 
BOTTOEXIT 
DISTANTFLR 
DOORINEFF ( ) 
DOORTIME ( ) 
DOORPTYPES  $ 

DOORTYPES$ 

DRTIME 

ELCARS 

ELEVATION ( I ) 

EXITDELAY 

EXITFLR 


EXITIMEFLRI 

EXITNAME$ 

EVACTIME 

FINPCTS 

FLOORS $ 
FLRNAMES$ ( I ) 

FULLOAD 
HGTDIF ( I ) 
INFOPATH$ 

KILLEXP 

LEVELTME 

METELEV 


RATE  OF  CAR  ACCELERATION  IN  FT/S**2. 

RATE  OF  CAR  ACCELERATION  IN  M/S**2. 

BASIC  TRANSFER  INEFFICIENCY.  CHOSEN  TO  0.1. 

DISTANCE  FROM  BOTTOMMOST  FLOOR  TO  EXIT. 

THE  NUMBER  OF  THE  FLOOR  MOST  DISTANT  FROM  THE  EXIT  FLOOR. 

DOOR  INEFFICIENCY  VALUES,  SELECTED  BY  THE  USER  FROM  A TABLE. 

TIME  IN  SECONDS  REQUIRED  FOR  THE  OPENING  AND  CLOSING  OF  THE 

DIFFERENT  TYPES  OF  ELEVATOR  DOORS,  IN  A FORMAT  USED  FOR 
PRINTING. 

CHARACTER  STRING  ARRAY  WHICH  CONTAINS  THE  DIFFERENT  TYPES  OF 
ELEVATOR  DOORS  AS  WELL  AS  THEIR  CHARACTERISTICS. 

TIME  (S)  REQUIRED  FOR  THE  OPENING  AND  CLOSING  OF  THE  ELEVATOR 
CAR  DOOR. 

TOTAL  NUMBER  OF  ELEVATOR  CARS  WITHIN  THE  GROUP,  INPUT  BY  THE 
USER. 

ELEVATIONS  OF  THE  VARIOUS  FLOORS  ABOVE  THE  LOWEST  FLOOR, 

WHICH  IS  ASSUMED  TO  HAVE  AN  ELEVATION  OF  0 . I IS  Ith  FLOOR. 

TIME  (S)  TO  OUTSIDE  AFTER  LEAVING  ELEVATOR. 

POSITION  OF  THE  EXIT  FLOOR  RELATIVE  TO  THE  LOWEST  FLOOR 
IN  THE  BUILDING.  FOR  EXAMPLE,  IF  EXITFLR  IS  3,  IT  IS  TWO 
FLOORS  ABOVE  THE  LOWEST  ONE. 

TIME  (s)  FOR  ALL  RESIDENTS  OF  FLOOR  I TO  REACH  EXIT  FLOOR. 

NAME  OF  FLOOR  CHOSEN  TO  BE  THE  EXIT  FLOOR. 

TOTAL  EVACUATION  TIME  USING  ALL  ELEVATOR  CARS  IN  THE  BANK. 

SET  TO  "Y"  WHEN  THE  MODEL  USER  WISHES  TO  CONTINUE  THE  RUN 
WITH  NEW  ELEVATOR  PERCENTAGE  VALUES. 

THE  CHARACTER  VARIABLE  CONTAINING  THE  LINE  OF  FLOOR  NAMES. 

CHARACTER  ARRAY  WHICH  HOLDS  THE  FLOOR  NAMES  AFTER  THE  RANGES 
HAVE  BEEN  EXPANDED  BY  THE  PROGRAM. 

NUMBER  OF  PEOPLE  THAT  FULLY  LOAD  THE  ELEVATOR  CAR. 

HEIGHT  DIFFERENCE  BETWEEN  FLOOR  I AND  FLOOR  1+1. 

THE  LOCATION  WHERE  GENERAL  INFORMATION  ABOUT  THE  PROGRAM 
IS  SENT. 

A VARIABLE  THAT  IS  SET  TO  1 IF  ANY  ERRORS  ARE  FOUND  IN  THE 
SPECIFIED  LINE  OF  FLOOR  NAMES. 

TIME  (S)  REQUIRED  FOR  THE  LEVELING  OF  THE  ELEVATOR  CAR.  IT 
CURRENTLY  IS  SET  TO  .5  SECONDS. 

ELEVATION  OF  CURRENT  FLOOR  IN  METERS.  RECOMPUTED  FOR  EACH 
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FLOOR. 

MTITLE1$  FIRST  TITLE  ROW  FOR  OUTPUT  TABLE. 

MTITLE2 $ SECOND  TITLE  ROW  FOR  OUTPUT  TABLE. 

MTITLE3$  THIRD  TITLE  ROW  FOR  OUTPUT  TABLE. 

NPPLELAST  THIS  IS  THE  NUMBER  OF  PEOPLE  IN  THE  ELEVATOR  CAR  DURING  THE 
LAST  TRIP,  AND  IS  RECOMPUTED  FOR  EACH  FLOOR. 

NTRIPSFULL  THE  NUMBER  OF  ROUND  TRIPS  WITH  A FULLY  LOADED  ELEVATOR  CAR, 
RECOMPUTED  FOR  EACH  FLOOR. 

OPTIONERROR$  A FLAG  THAT  IS  SET  TO  "YES"  IF  THE  OUTPUTOPTION  IS  NOT 
1 OR  2. 

OTHERTRANSIN  OTHER  TRANSFER  INEFFICIENCY  VALUE,  DUE  TO  ELEVATOR  CAR  SHAPE 
AND  OCCUPANT  USE. 

OUTPUTOPTION  AN  INTEGER  BETWEEN  1 AND  2 WHICH  IS  CHOSEN  BY  THE  USER  TO 
DETERMINE  WHERE  STORED  OUTPUT  IS  SENT. 

PATHSEL$  "N"  IF  ONLY  SCREEN  OUTPUT  IS  DESIRED,  "PRN"  IF  THE  FINAL 

OUTPUT  RESULTS  ARE  TO  BE  PRINTED,  OR  A DOS  FILENAME  IF  THE 
FINAL  OUTPUT  RESULTS  ARE  TO  BE  SENT  TO  A FILE. 

PEOPLE (I)  NUMBER  OF  PEOPLE  ON  THE  Ith  FLOOR. 

PERCNT ( I ) PERCENT  OF  PEOPLE  ON  Ith  FLOOR  WHO  USE  ELEVATOR  CARS  TO  LEAVE 
THE  BUILDING. 

PPLEFLR  TYPICAL  NUMBER  OF  PEOPLE  ON  A FLOOR,  GIVEN  BY  THE  USER. 

PPLEI  ACTUAL  NUMBER  OF  PEOPLE  ON  Ith  FLOOR  WHO  USE  THE  ELEVATOR 

CAR.  IT  IS  THE  PRODUCT  OF  PEOPLE ( I ) AND  PERCNT(I). 

PRINTINFO$  A FLAG  SET  TO  Y IF  THE  USER  WISHES  TO  READ  ABOUT  THE  MODEL. 

RERUNPERCNT  FLAG  SET  EQUAL  TO  0 WHEN  THE  USER  WISHES  TO  LEAVE  THE  MAIN 
DO  LOOP,  OR  1 WHEN  HE  WISHES  TO  RERUN  IT  WITH  NEW  ELEVATOR 
USAGE  PERCENTAGE  VALUES. 

RERUNOUTPUT $ SET  EQUAL  TO  Y WHEN  THE  USER  DESIRES  TO  SEND  THE  OUTPUT 
RESULTS  TO  THE  PRINTER  OR  A FILE. 

RERUNPROG$  SET  EQUAL  TO  "Y"  WHEN  THE  USER  WISHES  TO  RERUN  THE  PROGRAM. 

RNDTIMES ( I ) TOTAL  TIME  (S)  FOR  THE  TRIPS  REQUIRED  TO  EVACUATE  FLOOR  I. 

STARTUPTIME  TIME  SPENT  BEFORE  THE  ACTUAL  EVACUATION  BY  ELEVATOR  CARS 
BEGINS.  IT  IS  COMPUTED  FIRST  TO  BE  THE  TIME  REQUIRED  TO 
BRING  A FULLY  LOADED  ELEVATOR  CAR  FROM  THE  MOST  DISTANT 
FLOOR  TO  THE  EXIT  FLOOR.  IF  THIS  IS  NOT  SATISFACTORY,  THE 
USER  INPUTS  A LARGER  VALUE. 

STNDTMEFULL  STANDING  TIME  CALCULATED  FOR  A FULLY  LOADED  ELEVATOR. 

TIMEFULL  SUM  OF  THE  TIMES  OF  FULLY  LOADED  ROUND  TRIPS.  RECOMPUTED  FOR 

EACH  FLOOR. 

TIMELAST  TIME  REQUIRED  FOR  THE  LAST  ROUND  TRIP  FROM  A FLOOR. 

TIMES ( I ) TIME  FOR  A ONE  WAY  TRIP  TO  FLOOR  I. 

TITLES  TITLE  OF  THE  CURRENT  RUN. 

TOKENS $ ( I ) NON-BLANK  SUBSTRINGS  CONTAINED  WITHIN  EACH  PARSED  LINE  (SEE 
PARSING  ROUTINE). 

TOPTOEXIT  DISTANCE  FROM  TOP  FLOOR  TO  EXIT  FLOOR. 

TOTFLRS  TOTAL  NUMBER  OF  FLOORS  IN  THE  BUILDING. 

TOTINEFF  BASIC  TRANSFER  INEFFICIENCY  + DOOR  INEFFICIENCY  + 

OTHER  TRANSFER  INEFFICIENCY. 

TOTTIME  TOTAL  TIME  TO  EVACUATE  BUILDING  BY  ELEVATOR. 

TRANS  TRANSITIONAL  COEFFICIENT.  VI  = TRANS*VMAX. 

TRIPINEFF  TRIP  INEFFICIENCY  DUE  TO  GATHERING  STRAGGLERS,  TRAVEL  TO 
EMPTY  FLOORS,  FLOW  RESTRICTIONS,  ETC. 
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TRIPS 

TYPDIF 

TYPDIFsi 

TYPPERCNT 

UNITS 

VMAX 

VMAXsi 


NUMBER  OF  ROUND  TRIPS  NEEDED  TO  EVACUATE  A FLOOR. 

TYPICAL  FLOOR  TO  FLOOR  HEIGHT  IN  FEET. 

TYPICAL  FLOOR  TO  FLOOR  HEIGHT  IN  METERS. 

TYPICAL  PERCENT  OF  ELEVATOR  USAGE. 

1 IF  SI  UNITS  ARE  DESIRED,  2 IF  ENGLISH  UNITS  ARE  REQUESTED. 
MAXIMUM  ELEVATOR  CAR  VELOCITY  IN  ft. /second. 

MAXIMUM  ELEVATOR  CAR  VELOCITY  IN  m. /second. 


FIRST,  DECLARE  THE  FIVE  SUBROUTINES  AND  THE  FUNCTION  CALLED  BY  THE 
MAIN  PROGRAM.  THESE  SIX  SUBPROGRAMS  AND  THEIR  ARGUMENTS  WILL  BE 
DESCRIBED  BY  COMMENT  STATEMENTS  APPEARING  LATER. 

DECLARE  SUB  CHECK  (NUMTOK#,  LLIMIT#,  UPLIMIT#,  ARRPTR#) 

DECLARE  SUB  PARSE  ( STORE $,  NUMTOKS#) 

DECLARE  SUB  HEIGHTS  ( ) 

DECLARE  SUB  RANGEEXP  ( FLRSTR$ , FLRSUB1 , FLRSUB2 , FLR1$ , FLR2  $ , EXPEXCP) 
DECLARE  SUB  TRIPTIME  ( ) 

DECLARE  FUNCTION  CALC STAND#  (PEOP#) 

THESE  ARE  THE  VARIABLES  SHARED  WITH  OTHER  ROUTINES. 

DIM  SHARED  TOKENS$ (200) , FLOORS $ , UNITS 

DIM  SHARED  FLRNAMES$ ( 200 ) , HGTDIF(200),  ELEVATION ( 200 ) 

DIM  SHARED  TIMES(200),  people(200),  PERCNT(200) 

DIM  SHARED  KILLEXP,  TOTFLRS , EXITFLR 

DIM  SHARED  TYPDIF,  TYPDIFsi,  VMAX,  TRANS,  A,  LEVELTME , FULLOAD 
DIM  SHARED  DRTIME,  TOTINEFF 

DIMENSION  THE  ARRAYS  WHICH  ARE  NOT  SHARED. 

DIM  DOORTYPES$ ( 15 ) , Doort ime ( 14 ) , DOORINEFF ( 14 ) , RNDTIMES ( 200 ) 

DIM  DOORPTYPES$ ( 13 ) 


DATA  STATEMENTS  INITIALIZING  THE  DOORTIME  AND  DOOR  TRANFER 
INEFFICIENCY  ARRAY  NOW  APPEAR. 

DATA  6. 6, 5. 9, 4. 1,7. 0,6. 6, 4. 6, 7. 7, 5. 3, 8. 8, 6. 0,9. 9, 6. 5, 6.0 
DATA  .10, .10, .08, .07, .07, .05, .02,0, .02,0, .02,0,0 
FOR  I - 1 TO  13:  READ  Doortime(I):  NEXT  I 
FOR  I = 1 TO  13:  READ  DOORINEFF ( I ) : NEXT  I 


DATA  STATEMENTS  USED  IN  INITIALIZING  THE  DOOR  TYPE  ARRAY 
ARE  NOW  GIVEN.  THE  ARRAY  IS  THEN  INITIALIZED. 


DATA" 

A 

Single-Slide 

900mm 

( 36in) 

6.6 

0.10 

DATA" 

B 

Two-Speed 

900mm 

( 36in) 

5.9 

0.10 

DATA" 

C 

Center-Opening 

900mm 

( 36in) 

4.1 

0.08 

DATA" 

D 

Single-Slide 

1100mm 

(42in) 

7.0 

0.07 

DATA" 

E 

Two-Speed 

1100mm 

( 42in) 

6.6 

0.07 

DATA" 

F 

Center-Opening 

1100mm 

(42in) 

4.6 

0.05 

DATA" 

G 

Two-Speed 

1200mm 

( 48in) 

7.7 

0.02 

DATA" 

H 

Center-Opening 

1200mm 

( 48in) 

5.3 

0 

DATA" 

I 

Two-Speed 

1400mm 

( 54in) 

8.8 

0.02 

DATA" 

J 

Center-Opening 

1400mm 

( 54in) 

6.0 

0 
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DATA" 

K 

Two-Speed 

1600mm 

( 60in) 

9.9 

0.02" 

DATA" 

L 

Center-Opening 

1600mm 

( 60in) 

6.5 

0 

DATA" 

M 

Two-Speed, 

1600mm 

( 60in) 

6.0 

0 

DATA" 

Center-Opening 

H 

DATA" 

N 

OTHER 

•1 

FOR  I 

= 

1 TO  15:  READ  DOORTYPES$ ( I ) : 

NEXT  I 

DATA  STATEMENTS  TO  INITIALIZE  THE  DOOR  TYPE  PRINTING  ARRAY  NOW 
APPEAR.  INITIALIZATION  OF  THE  ARRAY  IS  PERFORMED. 


DATA" 

A 

Single-Slide 

900mm 

( 36in) 

wide" 

DATA" 

B 

Two-Speed 

900mm 

( 36in) 

wide" 

DATA" 

C 

Center-Opening 

900mm 

( 36in) 

wide" 

DATA" 

D 

Single-Slide 

1100mm 

( 42in) 

wide" 

DATA" 

E 

Two-Speed 

1100mm 

(42in) 

wide" 

DATA" 

F 

Center-Opening 

1100mm 

( 42in) 

wide" 

DATA" 

G 

Two-Speed 

1200mm 

(48in) 

wide" 

DATA" 

H 

Center-Opening 

1200mm 

( 48in) 

wide" 

DATA" 

I 

Two-Speed 

1400mm 

( 54in) 

wide" 

DATA" 

J 

Center-Opening 

1400mm 

( 54in) 

wide" 

DATA" 

K 

Two-Speed 

1600mm 

( 60in) 

wide" 

DATA" 

L 

Center-Opening 

1600mm 

( 60in) 

wide" 

DATA" 

M 

Two-Speed,  Center-Opening 

1600mm 

( 60in) 

wide" 

FOR  I 

= 

1 TO  13:  READ  DOORPTYPES$ ( I ) : NEXT 

I 

SET  THE  DEFAULT  VALUES  OF  SOME  OF  THE  VARIABLES. 
BASTRANSIN  = .1# 

TRANS  = .6# 

LEVELTME  = .5# 

RERUNOUTPUT  $ = "N" 

PATHSEL$  = " SCRN : " 

THE  MAIN  TITLES  FOR 
MTITLE1$  = " 

MTITLE1$  = MTITLE1$  + 

MTITLE2  $ = "Floor 
MTITLE2$  = MTITLE2$  + 

MTITLE3$  = "Name 
MTITLE3$  = MTITLE3$  + 


THE  OUTPUT  TABLE  ARE  NOW  CREATED. 

One  Round  People" 

" Time" 

Elevation  Way  Trip  on" 

" Percent  Round  per" 

m ft  Time  s Time  s" 

" Floor  Usage  Trips  Floor  s" 


****************************************************** 
***  MAIN  PROGRAM  EXECUTION  DO  LOOP. 

THIS  LOOP  RUNS  THE  ENTIRE  PROGRAM.  AT  THE  END, 
THE  USER  IS  ASKED  IF  HE  WISHES  TO  RERUN  IT.  IF 
SO,  THE  PROGRAM  IS  RERUN.  OTHERWISE,  THE  LOOP 
IS  EXITED  AND  THE  PROGRAM  STOPS. 
****************************************************** 


DO 
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INITIALLY  SEND  COMPUTED  OUTPUT  TO  THE  SCREEN. 
CLS 

OPEN  " SCRN : " FOR  OUTPUT  AS  #1 


PRINT  "" 

PRINT  " **************************************************************** 

PRINT  " ELVAC  VERSION  1.00 

PRINT  " WRITTEN  BY  DANIEL  M.  ALVORD  AND 

PRINT  " JOHN  H.  KLOTE 

PRINT  " 

PRINT  "CONTRIBUTION  OF  THE  NATIONAL  INSTITUTE  OF  STANDARDS  AND 
PRINT  " TECHNOLOGY.  (U.S.) 

PRINT  " NOT  SUBJECT  TO  COPYRIGHT 
PRINT  " 

PRINT  "FOR  COMPILED  VERSION  ONLY  - PORTIONS  (C)  COPYRIGHT  MICROSOFT 
PRINT  "CORPORATION,  1988.  ALL  RIGHTS  RESERVED. 

PRINT  " 

PRINT  "DOCUMENTATION:  KLOTE, J.H.,  ALVORD, D.M.,  AND  DEAL, S . , ANALYSIS  OF 
PRINT  "PEOPLE  MOVEMENT  DURING  ELEVATOR  EVACUATION,  NATIONAL  INSTITUTE 
PRINT  "OF  STANDARDS  AND  TECHNOLOGY,  (U.S.),  NISTIR  4730,  1992. 

PRINT  "**************************************************************** 
PRINT  "" 

THE  USER  NOW  INDICATES  IF  HE  WISHES  TO  READ  GENERAL  INFORMATION 
ABOUT  PARTICULAR  CONCEPTS  OF  THE  ELEVATOR  MODEL. 

INPUT  "Do  you  want  to  read  about  the  model  (Y  or  N)?  ",  PRINTINFO$ 

PRINTINFO$  = UCASE$ (PRINTINFO$) 

THE  USER  NOW  SPECIFIES  WHERE  THE  GENERAL  INFORMATION  SHOULD  BE 
PLACED . 

PRINT  "" 

IF  PRINTINFO$  = "Y"  THEN 

PRINT  "Where  do  you  wish  the  general  information  to  appear?" 

PRINT  " (a  filename,  PRN  for  printer,  or  ENTER  for  output" 

INPUT  " to  the  screen.)  ",  INFOPATH$ 

INFOPATH$  = UCASE$ ( INFOPATH$ ) 

IF  INFOPATH$  = ""  THEN  INFOPATH$  = "SCRN:" 

OPEN  INFOPATH$  FOR  OUTPUT  AS  #2 
END  IF 

GENERAL  INFORMATION  ABOUT  THE  MODEL  AND  ITS  COMPUTER  IMPLEMENTATION 
IS  NOW  GIVEN,  IF  THE  USER  SO  SPECIFIES. 

IF  PRINTINF05  = "Y"  THEN 

CLS 

PRINT  "" 

PRINT  #2,  " -Basic  concepts  of  the  model- — -- 

PRINT  #2,  " Basic  transfer  inefficiency-  a factor  that  allows  for 
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PRINT  #2, 
PRINT  #2 , 
PRINT  #2 , 
PRINT  #2, 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT  #2 , 
PRINT  #2 , 
PRINT  #2 , 


#2, 
#2, 
# 2 , 
#2, 


rounding  off  of  probable  stops,  door  operating  time,  door' 
starting  and  stopping  time,  and  the  unpredictability  of  ' 
people.  A value  of  0.10  is  used  for  commonly  accepted 
arrangements  of  elevator  groups.  ' 

Discharge  floor-  When  emergency  evacuation  starts,  ' 

elevators  will  take  people  to  a discharge  floor  where 
passengers  on  the  elevators  will  exit.  This  floor  may  ' 
lead  to  the  outside  or  to  an  area  of  relative  safety.  ' 

Door  inefficiency-  Adjusts  for  any  increase  in  transfer  1 

time  over  that  of  a 1200  mm  (48  in)  wide  center  opening  1 
door.  ' 

THEN 


IF  INFOPATH$  = "SCRN 
PRINT  "" 

INPUT  "Press  ENTER  to 
CLS 

PRINT  "" 

END  IF 


continue ",  junk$ 


PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

PRINT 

#2 

Dwell  time-  The  minimum  time  an  elevator  car  door  remains  " 
open.  The  time  used  in  this  program  is  4 seconds. 

Groups-  Elevators  are  located  in  groups  of  up  to  eight 

elevators.  The  elevators  in  a group  are  located  near  each" 
other  and  are  controlled  together  to  move  people 
efficiently.  " 

Elevator  evacuation  start  up  time-  The  time  from  activation" 
of  the  alarms (for  example)  to  the  start  of  the  round  trips" 
that  evacuate  people.  If  the  elevators  are  operated 
automatically  during  evacuation,  one  starts  the  elevator  " 
evacuation  after  all  of  the  elevators  have  been  moved 
to  the  discharge  floor  and  the  people  in  them  have  left.  " 
In  the  case  of  manual  elevator  operation,  the  time  for  " 
elevators  operators  to  reach  the  cars  must  be  included.  " 
Motion-  Elevator  motion  starts  with  constant  acceleration,  " 
followed  by  transitional  acceleration  until  constant 
velocity  motion  at  the  normal  operating  velocity  of  the  " 
car  is  attained.  " 


IF  INFOPATH$  = "SCRN:"  THEN 
PRINT  "" 

INPUT  "Press  ENTER  to  continue....",  junk$ 
CLS 

PRINT  "" 

END  IF 
PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 


Other  transfer  inefficiency-  accounts  for  inefficiencies 
due  to  unusual  elevator  car  shape  or  limited  physical 
capability  of  passengers.  In  office  buildings,  a value  of' 
0 is  used.  ' 

Round  trip-  a round  trip  starts  at  the  discharge  floor  and  1 
consists  of  the  sequence:  elevator  doors  close,  car 
travels  to  another  floor,  doors  open,  passengers  enter 
the  car,  doors  close,  car  travels  to  discharge  floor, 
doors  open,  and  passengers  leave  the  car.  Alternatively,  1 
it  may  be  defined  as  two  one  way  trips  and  a standing 
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PRINT  #2, 
PRINT  #2 , 
PRINT  #2, 
PRINT  #2, 
PRINT  #2 , 
PRINT  #2, 
PRINT  #2, 


period. 

Standing  time-  Twice  the  time  required  to  open  and  close 
the  elevator  doors,  plus  the  time  for  people  to  enter  the 
elevator,  plus  the  time  for  people  to  leave  the  elevator. 

Trip  inefficiency-  a multiplicative  factor  that  accounts 
for  trips  to  empty  floors  and  for  trips  to  pick  up  only  a 
few  stragglers. 


'Press  ENTER  to  continue....",  junk$ 


IF  INFOPATH?  = "SCRN : " THEN 
PRINT  "" 

INPUT 
CLS 
PRINT 
END  IF 
PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 

PRINT  #2, 


Concepts  inherent  to  the  computer  program 

Range-  A range  is  a set  of  floor  names  that  is  expanded  by 
the  program  into  a set  of  contiguous  floor  numbers.  For 
example,  the  range  2-10  is  expanded  into  2, 3, 4, 5, 6,...., 
9,10. 

Typical-  Used  to  save  effort  in  the  input.  It  is  best  shown 
by  example.  The  typical  inter  floor  height  of  a building 
typical  inter  floor  height  of  a building  is  the  most 
commonly  occurring  height  between  floors  (12  feet  is  an 
example) . There  is  a typical  inter  floor  height,  a 
typical  number  of  people  on  a floor,  and  a typical 
elevator  usage  percent. 


END  IF 


IF  INFOPATH?  = "SCRN:"  THEN  PRINT  PRINT  PRINT 


READ  IN  THE  TITLE  OF  THE  CURRENT  RUN. 
PRINT  "Enter  the  title  of  this  run.  " 
LINE  INPUT  TITLE? 


ENTER  VALUE  INDICATING  WHETHER  METRIC  OR  ENGLISH  UNITS  ARE  DESIRED. 
DO 

PRINT  "" 

INPUT  "Enter  1 for  SI  units  or  2 for  English  units:  ",  UNITS 
IF  UNITS  <>  1 AND  UNITS  <>  2 THEN 

PRINT  " ***INVALID  UNIT  INDICATOR." 

END  IF 

LOOP  UNTIL  UNITS  = 1 OR  UNITS  = 2 


READ  IN  THE  LINE  OF  FLOOR  NAMES.  THE  LINE  IS  EXAMINED  BY  THE  PROGRAM 
AND,  IF  ANY  ERRORS  ARE  DISCOVERED,  THE  USER  MUST  REENTER  THE  LINE. 

IF  NO  ERRORS  ARE  FOUND,  THE  PROGRAM  WILL  USE  THE  FLOOR  NAME  LINE 
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TO  CREATE  THE  INDIVIDUAL  FLOOR  NAMES.  THE  HEIGHTS  SUBROUTINE  IS  THEN 
CALLED  TO  READ  IN  THE  TYPICAL  FLOOR  HEIGHT,  ANY  HEIGHT  EXCEPTIONS, 
AND  THEN  TO  COMPUTE  THE  ELEVATIONS  OF  EACH  FLOOR. 


DO 

PRINT  "" 

PRINT  "Enter  floors  that  the  elevators  serve  (for  example-  B G 1-6)" 
LINE  INPUT  FLOORS $ 

CALL  HEIGHTS 
LOOP  UNTIL  KILLEXP  = 0 


THE  USER  IS  NOW  PROMPTED  BY  THE  PROGRAM  TO  KEY  IN  THE  EXIT  (DISCHARGE) 
FLOOR  NAME.  IF  THE  NAME  IS  NOT  FOUND  IN  THE  LIST  OF  FLOOR  NAMES,  AN 
ERROR  MESSAGE  APPEARS  AND  THE  USER  MUST  RETYPE  THE  EXIT  FLOOR  NAME. 

DO 

PRINT  "" 

INPUT  "Discharge  floor";  EXITNAME$ 

EXITFLR  = 0 

FOR  I = 1 TO  TOTFLRS 

IF  EXITNAME$  = FLRNAMES$ ( I ) THEN 
EXITFLR  = I 
EXIT  FOR 
END  IF 
NEXT  I 

IF  EXITFLR  = 0 THEN 
PRINT  "" 

PRINT  " FLOOR  NAME  ";  EXITNAME$ ; " NOT  FOUND." 

PRINT  " VALID  NAMES-  FLOORS$ 

END  IF 

LOOP  UNTIL  EXITFLR  <>  0 


THE  EXIT  DELAY  TIME  MUST  NOW  BE  INPUT.  IF  IT  IS  NOT  WITHIN  A CERTAIN 
RANGE,  THE  PROGRAM  PROMPTS  THE  USER  TO  RETYPE  IT. 

DO 

PRINT  "" 

INPUT  "Time  to  outside  after  leaving  elevator  (s)";  EXITDELAY 
IF  0#  > EXITDELAY  OR  EXITDELAY  > 10000#  THEN 

PRINT  " *****TIME  TO  OUTSIDE  IS  OUT  OF  RANGE." 

END  IF 

LOOP  UNTIL  EXITDELAY  >=  0#  AND  EXITDELAY  <=  10000# 


THE  TRIP  INEFFICIENCY  FACTOR  IS  NOW  ENTERED. 

DO 

PRINT  "" 

INPUT  "Trip  inefficiency  factor  (for  example  .1)?  ",  TRIPINEFF 

IF  0#  > TRIPINEFF  OR  TRIPINEFF  > 1#  THEN 

PRINT  " *****TRIP  INEFFICIENCY  FACTOR  IS  OUT  OF  RANGE." 

END  IF 

LOOP  UNTIL  TRIPINEFF  >=  0#  AND  TRIPINEFF  <=  1# 
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THE  TOTAL  NUMBER  OF  ELEVATOR  CARS  IN  THE  GROUP  IS  NOW  INPUT. 

DO 

PRINT  "" 

INPUT  "Number  of  elevator  cars  in  the  group?  " , ELCARS 
IF  ELCARS  <=  0#  OR  100#  < ELCARS  THEN 

PRINT  " * * * * * TOTAL  NUMBER  OF  ELEVATOR  CARS  IS  OUT  OF  RANGE." 
END  IF 

LOOP  UNTIL  ELCARS  > 0#  AND  ELCARS  <=  100# 


THE  USER  NOW  ENTERS  THE  NORMAL  OPERATING  VELOCITY  OF  THE  ELEVATOR 
CAR. 

DO 

PRINT  "" 

IF  UNITS  = 1 THEN 

INPUT  "Normal  operating  velocity  of  car  (m/s)";  VMAXsi 
VMAX  = VMAXsi  * (1  / .3048#) 

ELSE 

INPUT  "Normal  operating  velocity  of  car  (fpm)";  VMAX 
VMAX  = VMAX  / 60 
VMAXsi  = VMAX  * .3048# 

END  IF 

IF  0#  >=  VMAX  OR  60000#  < VMAX  THEN 

PRINT  " * * * * * NORMAL  CAR  VELOCITY  IS  OUT  OF  RANGE." 

END  IF 

LOOP  UNTIL  VMAX  > 0#  AND  VMAX  <=  60000# 


NOW  THE  RATE  OF  ACCELERATION  OF  THE  ELEVATOR  CAR  IS  INPUT. 
DO 

PRINT  "" 

IF  UNITS  = 1 THEN 

INPUT  "Car  acceleration  (m/s**2)";  Asi 
A = Asi  * (1  / .3048#) 

ELSE 

INPUT  "Car  Acceleration  (ft/s**2)";  A 
Asi  = A * .3048# 

END  IF 

IF  0#  >=  A OR  1000#  < A THEN 

PRINT  " *****CAR  ACCELERATION  RATE  IS  OUT  OF  RANGE." 
END  IF 

LOOP  UNTIL  0#  < A AND  A <=  1000# 


NEXT,  ENTER  THE  DESIRED  FULL  LOAD  FOR  THE  ELEVATOR  CAR.  IT  MUST  BE 
INTEGER. 

DO 

PRINT  "" 

FLAG  = 0 

INPUT  "Elevator  Full  Load  (people)";  FULLOAD 
IF  0#  >=  FULLOAD  OR  50#  < FULLOAD  THEN 
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PRINT  " *****ELEVATOR  FULL  LOAD  VALUE  IS  OUT  OF  RANGE." 
FLAG  = 1 
END  IF 

IF  I NT ( FULLOAD ) <>  FULLOAD  THEN 

PRINT  " * * * * *ELEVATOR  FULL  LOAD  VALUE  MUST  BE  AN  INTEGER." 
FLAG  = 1 
END  IF 

LOOP  UNTIL  FLAG  = 0 


THE  TIME  REQUIRED  TO  OPEN  AND  CLOSE  THE  ELEVATOR  CAR  DOORS  IS  NOW 
ENTERED . 

DO 

PRINT  "" 

PRINT  " MENU  OF  DOOR  TYPES " 

PRINT  STRING$ ( 69 , "-") 

PRINT  " Door  type"  + STRING$(16,  " "); 

PRINT  " Door  width  Time  to  Open  Door  Transfer" 

PRINT  STRING$(39,  " ")  + " and  Close,  s Inefficiency" 

PRINT  STRINGS (69,  ) 

FOR  I = 1 TO  15 

PRINT  DOORTYPES$ ( I ) 

NEXT  I 

PRINT  " ***Pick  one  of  the  door  choices  A - M.  " 

INPUT  " If  you  wish  to  specify  another  type,  enter  N.  ",  R$ 

R$  = UCASE$(R$) 

IF  LEN(RS)  = 1 THEN 

DOORCHOICE  = ASC ( R$ ) - 64 

IF  DOORCHOICE  < 1 OR  DOORCHOICE  > 14  THEN 
PRINT  "" 

PRINT  " *****DOOR  CHOICE  INVALID." 

ELSEIF  DOORCHOICE  = 14  THEN 
PRINT  "" 

PRINT  " ***  ANOTHER  DOOR  TYPE  SPECIFIED***" 

PRINT  "" 

INPUT  " New  doortime  value  (s)?  ",  Doortime (14) 

DO 

PRINT  "" 

INPUT  " New  door  inefficiency  value?  ",  DOORINEFF ( 14 ) 

MM  = DOORINEFF (14) 

IF  MM  < 0#  OR  MM  > 1#  THEN 
PRINT  "" 

PRINT  " ***Door  inefficiency  value  is  out  of  range." 

END  IF 

LOOP  UNTIL  MM  >=  0#  AND  MM  <=  1# 

END  IF 
ELSE 

PRINT  "" 

PRINT  " *****DOOR  CHOICE  CONTAINS  MORE  THAN  ONE  CHARACTER." 

END  IF 

LOOP  UNTIL  LEN (R$ ) = 1 AND  DOORCHOICE  >=  1 AND  DOORCHOICE  <=  14 
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THE  OTHER  TRANSFER  INEFFICIENCY  FACTOR  IS  NOW  INPUT. 

DO 

PRINT  "" 

INPUT  "Other  transfer  inefficiency?  ",  OTHERTRANSIN 
IF  OTHERTRANSIN  < 0#  OR  OTHERTRANSIN  > 1#  THEN 

PRINT  " *****OTHER  TRANSFER  INEFFICIENCY  IS  OUT  OF  RANGE." 
END  IF 

LOOP  UNTIL  0#  <=  OTHERTRANSIN  AND  OTHERTRANSIN  <=  1# 


THE  DOORTIME  AND  TOTAL  TRANSFER  INEFFICIENCY  ARE  NOW  COMPUTED. 
DRTIME  = Doort ime ( DOORCHOI CE ) 

TOTINEFF  = BASTRANSIN  + DOORINEFF (DOORCHOI CE ) + OTHERTRANSIN 


THE  STANDING  TIME  REQUIRED  TO  FULLY  LOAD  AN  ELEVATOR  CAR  IS  NOW 
COMPUTED  AND  STORED. 

STNDTMEFULL  = CALC ST AND #( FULLOAD# ) 


NEXT,  THE  ONE  WAY  TRIP  TIMES  ARE  COMPUTED  FOR  EACH  FLOOR. 
CALL  TRIPTIME 


NOW  THE  START  UP  TIME  IS  COMPUTED  OR  INPUT.  THIS  IS  THE  TIME  REQUIRED 
TO  PREPARE  FOR  THE  ACTUAL  EGRESS  BY  ELEVATOR  AFTER  THE  SIGNAL  FOR 
EVACUATION  IS  GIVEN. 

TOPTOEXIT  = ELEVATION ( TOTFLRS ) - ELEVATION (EXITFLR) 

BOTTOEXIT  = ELEVATION (EXITFLR)  - ELEVATION ( 1 ) 

IF  TOPTOEXIT  > BOTTOEXIT  THEN  DISTANTFLR  = TOTFLRS  ELSE  DISTANTFLR  = 1 
IF  FULLOAD  > 6 THEN  OVER6FACT  = .6  * (FULLOAD  - 6) 

UNLOADTIME  = 4#  + OVER6FACT 

STARTUPTIME  = (1  + TOTINEFF)  * (DRTIME  + UNLOADTIME)  + TIMES (DISTANTFLR) 
PRINT  "The  startup  time  for  automatically  operated  elevators  "; 

PRINT  USING  "is  ####.##  seconds.";  STARTUPTIME 

INPUT  " Do  you  want  to  enter  another  value  (Y  or  N)?  ",  NEWFLAG$ 

NEWFLAG$  = UCASE$ (NEWFLAG$) 

IF  NEWFLAG$  = "Y"  THEN 
DO 

INPUT  " ? ",  STARTUPTIME 

IF  STARTUPTIME  < 0 OR  STARTUPTIME  > 10000  THEN 
PRINT  "" 

PRINT  " VALUE  FOR  START  UP  TIME  IS  NOT  IN  CORRECT  RANGE.  " 
END  IF 
PRINT  "" 

LOOP  UNTIL  STARTUPTIME  >=  0 AND  STARTUPTIME  <=  10000 
ELSE 

PRINT  "" 

END  IF 


THE  TYPICAL  NUMBER  OF  PEOPLE  ASSIGNED  TO  EACH  FLOOR  MUST  NOW  BE 


33 


ENTERED.  IT  MUST  BE  AN  INTEGER. 

DO 

FLAG  = 0 

INPUT  "Typical  Number  of  People  per  Floor";  PPLEFLR 
IF  0 # >=  PPLEFLR  OR  100000#  < PPLEFLR  THEN 

PRINT  " *****TYPICAL  PEOPLE  PER  FLOOR  VALUE  IS  OUT  OF  RANGE." 
FLAG  = 1 
END  IF 

IF  INT( PPLEFLR)  <>  PPLEFLR  THEN 

PRINT  " *****TYPICAL  PEOPLE  PER  FLOOR  VALUE  MUST  BE  AN  INTEGER." 
FLAG  = 1 
END  IF 

LOOP  UNTIL  FLAG  = 0 

FOR  1=1  TO  TOTFLRS : people(I)  = PPLEFLR:  NEXT  I 

NEXT,  THE  PEOPLE  PER  FLOOR  EXCEPTIONS  ARE  INPUT.  THESE  OVERRIDE 
THE  TYPICAL  PEOPLE  NUMBER. 

FOR  I = 1 TO  1000 

PRINT  " People  per  floor  exception:" 

PRINT  " Floor  Range,  people  (enter  END  to  stop)" 

LINE  INPUT  STORE $ 

CALL  PARSE ( STORE $ , NUMTOKS#) 

CALL  CHECK (NUMTOKS#,  0#,  100000#,  2#) 

IF  TOKENS $ ( 1 ) = "STOP"  THEN  EXIT  FOR 
NEXT  I 


*************************************************************** 

* MAIN  DO  LOOP 

* READS  IN  A NEW  SET  OF  ELEVATOR  USE  PERCENTAGES.  THIS  LOOP 

* IS  RERUN  UNTIL  THE  CURRENT  INPUT  VALUES  TOGETHER  WITH  THE 

* NEW  PERCENTAGE  VALUES  PRODUCE  SATISFACTORY  RESULTS. 
*************************************************************** 


DO 


THE  TYPICAL  ELEVATOR  USAGE  IS  NOW  KEYED  IN.  THIS  IS  THE  PERCENT  OF 
PEOPLE  ON  EACH  FLOOR  WHO  USE  ELEVATOR  CARS  TO  EGRESS.  IT  MUST  BE 
A VALUE  BETWEEN  0 AND  100. 

DO 

PRINT  "" 

INPUT  "Percent  of  people  on  typical  floor  using  elevator";  TYPPERCNT 
IF  TYPPERCNT  < 0#  OR  TYPPERCNT  > 100#  THEN 

PRINT  " * * * * * ELEVATOR  USAGE  PERCENT  IS  OUT  OF  RANGE." 

END  IF 

LOOP  UNTIL  0#  <=  TYPPERCNT  AND  TYPPERCNT  <=  100# 

FOR  I = 1 TO  TOTFLRS:  PERCNT(I)  = TYPPERCNT:  NEXT  I 

NEXT,  EXCEPTIONS  TO  THE  TYPICAL  ELEVATOR  USAGE  PERCENT  ARE  ENTERED. 
THESE  OVERRIDE  THE  TYPICAL  PERCENT. 
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FOR  I = 1 TO  1000 

PRINT  " Percent  usage  exceptions:" 

PRINT  " Floor  Range,  Percent  (enter  END  to  stop)" 
LINE  INPUT  STORE$ 

CALL  PARSE (STORES,  NUMTOKS#) 

CALL  CHECK (NUMTOKS#,  0#,  100#,  3#) 

IF  TOKENS $ ( 1 ) = "STOP"  THEN  EXIT  FOR 
NEXT  I 


********************************* 

* MAIN  OUTPUT  LOOP 
********************************* 


FIRST,  CLEAR  THE  SCREEN.  NEXT,  EXECUTE  THE  OUTPUT  LOOP  UNTIL  THE 
VALUE  OF  RERUNOUTPUTS  IS  Y . THE  VALUE  OF  THIS  VARIABLE  IS  1 ONLY  WHEN 
THE  USER  WANTS  TO  PRINT  OR  STORE  THE  OUTPUT  RESULTS. 

CLS 


DO 


IMPORTANT  PROGRAM  PARAMETERS  ARE  NOW  PRINTED.  THESE  APPEAR  BEFORE 


THE 

TABLE  OF  F 

PRINT 

#1, 

If  II 

PRINT 

#1, 

TITLES 

PRINT 

#1, 

If  II 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

PRINT 

USING 

PRINT 

#1, 

USING 

PRINT 

#1, 

USING 

USING  "People  per  floor  is  ######. 


PPLEFLR 


’Distance  between  floors  is 
' or  ####.##  ft. 


####.##  m"?  TYPDIFsi ; 

; TYPDIF 

"Elevator  usage  percent  is  ###.###%";  TYPPERCNT 
"Normal  car  velocity  is  ###.##  m/s  " ; VMAXsi; 

"or  ####.##  fpm. " ; VMAX  * 60 

"Car  acceleration  is  ##.##  m/s2";  Asi; 

" or  ##.##  ft/s2.";  A 

"Car  full  load  is  ###  people.";  FULLOAD 
"Full  load  standing  time  is  ###.##  s.";  STNDTMEFULL 
"Other  transfer  inefficiency  is  #.####";  OTHBRTRANSIN 
"Trip  inefficiency  is  #.###  ";  TRIPINEFF 

IF  DOORCHOICE  <>  14  THEN 

PRINT  #1,  "Door  type:";  DOORPTYPES$ ( DOORCHOICE ) 

USING  " Doortime  s ###.###  ";  Doortime (DOORCHOICE ) ; 


PRINT  #1, 

PRINT  #1,  USING 
ELSE 

PRINT  #1, 

PRINT  #1, 

PRINT  #1, 

PRINT  #1, 

END  IF 
PRINT  #1,  "" 

PRINT  #1,  STRING$ ( 78 , 


Door  inefficiency  ###.### 


"Door  type:  OTHER  " 

" Doortime  s "; 

USING  "###.###  Door  inefficiency 
USING  "#.###  ";  DOORINEFF ( 14 ) 


") 


DOORINEFF (DOORCHOICE) 


Doortime ( 14 ) ; 
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.5#)  + 1 


NOW  THE  VALUES  FOR  THE  OUTPUT  TABLE  ARE  COMPUTED  AND  PRINTED.  THE 
FIRST  ROW  CORRESPONDS  TO  THE  TOP  FLOOR  OF  THE  BUILDING,  THE  NEXT 
ROW  TO  THE  FLOOR  BENEATH  THE  TOP  FLOOR,  ETC. 

PRINT  #1,  MTITLE1$ 

PRINT  #1,  MTITLE2  $ 

PRINT  #1,  MTITLE3$ 

PRINT  #1,  STRINGS (78, 

TOTTIME  = 0# 

FOR  I = TOTFLRS  TO  1 STEP  -1 

PPLEI  = people ( I ) * PERCNT(I)  * .01# 

IF  INT( PPLEI)  <>  PPLEI  THEN  PPLEI  = INT( PPLEI  + 

TRIPS  = PPLEI  / FULLOAD 

IF  INT( TRIPS)  <>  TRIPS  THEN  TRIPS  = CINT( TRIPS  + .5#) 

NTRIPSFULL  = INT( PPLEI  / FULLOAD) 

NPPLELAST  = PPLEI  - NTRIPSFULL  * FULLOAD 
RNDTIMES ( I ) = 2#  * TIMES(I) 

IF  NTRIPSFULL  = 0#  THEN 

TIMELAST  = RNDTIMES ( I ) + CALCSTAND ( NPPLELAST# ) 

RNDTIMES ( I ) = TIMELAST 
TIMEFULL  = 0# 

ELSEIF  NTRIPSFULL  > 0#  AND  NPPLELAST  = 0#  THEN 
TIMELAST  = 0# 

RNDTIMES ( I ) = RNDTIMES (I)  + STNDTMEFULL 
TIMEFULL  = NTRIPSFULL  * RNDTIMES ( I ) 

ELSEIF  NTRIPSFULL  > 0#  AND  NPPLELAST  > 0#  THEN 
TIMELAST  = RNDTIMES ( I ) + CALCSTAND (NPPLELAST#) 

RNDTIMES ( I ) = RNDTIMES ( I ) + STNDTMEFULL 
TIMEFULL  = NTRIPSFULL  * RNDTIMES ( I ) 

END  IF 

IF  PPLEI  = 0#  THEN 
EXITIMEFLRI  = 0# 

ELSE 

EXITIMEFLRI  = TIMEFULL  + TIMELAST 
END  IF 

PRINT  #1,  USING  "\  \ 

METELEV  = ELEVATION ( I ) * .3048# 

PRINT  #1,  USING  "####.#  ####.# 

IF  I = EXITFLR  THEN 
PRINT  #1,  " " 


FLRNAMES$ ( I ) ; 

" ; METELEV ; ELEVATION ( I ) ; 


ELSE 

PRINT  #1, 
PRINT  #1, 
PRINT  #1, 


USING  "####.#  ####.# 

USING  "######  ###.# 

USING  "####  #####.#" ; 

+ EXITIMEFLRI 


" ? TIMES ( I ) ; RNDTIMES ( I ) ; 
" ; people ( I ) ; PERCNT ( I ) ; 
TRIPS;  EXITIMEFLRI 


TOTTIME  = TOTTIME 
END  IF 
NEXT  I 

PRINT  #1,  STRING$ ( 78 , "-") 

EVACTIME  = (TOTTIME  / ELCARS)  * ( 1# 
EVACTIME  = EVACTIME  + STARTUPTIME 


+ TRIPINEFF)  + EXITDELAY 
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THE 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


TOTAL  BUILDING  EVACUATION  TIME  NOW  APPEARS. 


#1, 

STRINGS (43, 

" "); 

#1, 

"Total  round 

trip  time="; 

#1, 

USING  " #######.#"; 

TOTTIME 

#1, 

STRINGS ( 51 , 

2 

2 

#1, 

"Start  up  time="; 

#1, 

USING  " 

####.#"; 

STARTUPTIME 

#1, 

STRINGS (11, 

»t  if  \ , 

#1/ 

"Time  to  get 

to  the 

outside  after  leaving  the  elevator 

#1, 

USING  " 

###.#"; 

EXITDELAY 

#1, 

STRINGS (30, 

If  II  v , 

/ / 

#1, 

USING  "Evacuation  time  using  ##  elevators=";  ELCARS; 

#1, 

USING  " #######.#"; 

EVACTIME 

#1, 

STRINGS (53, 

n „); 

#1, 

USING  "(or 

######.# 

minutes)";  EVACTIME  / 60 

DETERMINE  IF  THE  PROGRAM  USER  WISHES  TO  SAVE  THE  OUTPUT  SHOWN  ON  THE 
SCREEN.  IF  THIS  IS  THE  CASE , THE  OUTPUT  LOOP  IS  RERUN.  THE  USER  MAY 
PRINT  THE  OUTPUT,  SEND  IT  TO  A FILE,  OR  DO  BOTH. 

PRINT  ,,M 

IF  PATHSEL$  = " SCRN : " THEN 

INPUT  "Do  you  want  to  save  the  output  (Y  or  N)?  ",  RERUNOUTPUT$ 

ELSE 

INPUT  "Do  you  want  to  save  the  output  again  (Y  or  N)?  ",  RERUNOUTPUTS 

END  IF 

RERUNOUTPUTS  = UCASE$ ( RERUNOUTPUT$ ) 

IF  RERUNOUTPUTS  = "Y"  THEN 
DO 


OPTIONERROR$  = "NO" 

PRINT  "" 

PRINT  " The  options  for  saving  the  output  now  follow.  " 

PRINT  " Enter  a number  corresponding  to  one  of  the  following:  " 

PRINT  " 1.  Send  the  output  to  the  printer.  " 

PRINT  " 2.  Store  the  output  in  a file. 

PRINT  "" 

INPUT  "Output  option?  ",  OUTPUTOPTION 
IF  OUTPUTOPTION  < 1 OR  OUTPUTOPTION  > 2 THEN 
PRINT  "" 

PRINT  " ***  Incorrect  option  number.  Must  be  1 OR  2 . ***" 

OPTIONERROR$  ^ "YES" 

END  IF 

IF  OUTPUTOPTION  = 1 THEN 
PATHSEL$  = "PRN" 

CLOSE  #1 

OPEN  PATHSEL$  FOR  OUTPUT  AS  #1 
ELSE IF  OUTPUTOPTION  = 2 THEN 
PRINT  "" 

INPUT  " What  is  the  filename?  ",  PATHSEL$ 

PATHSEL$  = UCASE$(PATHSEL$) 

CLOSE  #1 
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OPEN  PATHSEL$  FOR  OUTPUT  AS  #1 
END  IF 

LOOP  UNTIL  OPTIONERROR$  = "NO" 

ELSE 

PATHSEL$  = "SCRN : " 

CLOSE  #1 

OPEN  PATHSEL$  FOR  OUTPUT  AS  #1 
RERUNOUTPUTS  = "N" 

END  IF 


************************* 

* END  OF  MAIN  OUTPUT  LOOP 
************************* 

LOOP  UNTIL  RERUNOUTPUT$  = "N" 


DETERMINE  IF  THE  USER  WISHES  TO  RERUN  THE  PROGRAM  WITH  NEW  ELEVATOR 
USAGE  PERCENTAGES. 

PRINT  "" 

INPUT  "Rerun  program  with  new  usage  percentages  (Y  or  N)?  ",  FINPCT$ 

FINPCT$  = UCASE$ ( FINPCT$ ) 

IF  FINPCT$  = "Y"  AND  PATHSEL$  <>  "SCRN:"  THEN 
CLOSE  #1 

OPEN  "SCRN:"  FOR  OUTPUT  AS  #1 
END  IF 

IF  FINPCT$  = "Y"  THEN  RERUNPERCNT  = 1 
IF  FINPCT$  <>  "Y"  THEN  RERUNPERCNT  = 0 


************************** 

***  END  OF  MAIN  DO  LOOP 
************************** 


LOOP  UNTIL  RERUNPERCNT  = 0 


********************************* 

***  END  OF  PROGRAM  EXECUTION  LOOP 
********************************* 


PRINT  "" 

INPUT  "Do  you  wish  to  rerun  the  entire  program  (Y  or  N)?  ",  RERUNPROG$ 

RERUNPROG$  = UCASE$ (RERUNPROG$ ) 

CLOSE  #1 

LOOP  UNTIL  RERUNPROGS  = "N" 


END 
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FUNCTION  CALCSTAND 


THIS  FUNCTION  COMPUTES  THE  STANDING  TIME  PORTION  OF  AN  ELEVATOR'S 
TRIP.  IT  IS  DEFINED  AS  FOLLOWS: 

STANDING  TIME  = ( 1 + TOTINEFF)  * ( 2 *DOORTIME+LOADING  TIME+UNLOADING  TIME) 


LOCAL  VARIABLES: 

LOADTIME  TIME  (s)  TO  LOAD  AN  ELEVATOR  CAR. 

PEOP#  NUMBER  OF  PEOPLE  FOR  WHICH  THE  STANDING  TIME  IS  COMPUTED. 

OVER6FACT  EXTRA  TIME  REQUIRED  WHEN  PEOP#  IS  OVER  6. 

UNLOADTIME  TIME  (s)  TO  UNLOAD  AN  ELEVATOR  CAR  AT  THE  EXIT  FLOOR. 
GLOBAL  VARIABLES: 

DRTIME  TIME  (s)  REQUIRED  FOR  THE  OPENING  AND  CLOSING  OF  THE 

ELEVATOR  CAR  DOOR. 

TOTINEFF  TOTAL  TRANSFER  INEFFICIENCY. 


FUNCTION  CALCSTAND#  (PEOP#) 

OVER6FACT  = 0 

IF  PEOP#  > 6#  THEN  OVER6FACT  * . 6#  * (PEOP#  - 6) 

IF  PEOP#  <=  2#  THEN  LOADTIME  = 2#  ELSE  LOADTIME  = PEOP# 

UNLOADTIME  * 4#  + OVER6FACT 

CALCSTAND#  * ( 1#  + TOTINEFF)  * (2#  * DRTIME  + LOADTIME  + UNLOADTIME) 
END  FUNCTION 


SUBROUTINE  CHECK 


THIS  SUBROUTINE  CHECKS  HEIGHT , PEOPLE  PER  FLOOR,  AND 
ELEVATOR  USAGE  PER  FLOOR  EXCEPTIONS.  THESE  EXCEPTIONS  ARE 
ENTERED  IN  THE  FORM  nm,val  , WHERE  run  IS  A FLOOR  NAME  AND  val 
IS  AN  EXCEPTION  VALUE.  THE  STRING  VALUE  "END"  STOPS  EXCEPTION 
INPUT  FOR  EACH  OF  THE  THREE  CATEGORIES  OF  EXCEPTIONS. 


ARGUMENTS : 

NUMTOK#  NUMBER  OF  STRINGS  FOUND  ON  THE  CURRENT  LINE  BY  THE  PARSING 
ROUTINE.  THIS  IS  PASSED  TO  CHECK. 

LLIMIT#  LOWER  LIMIT  FOR  THE  SECOND  ITEM  ON  THE  LINE. 

UPLIMIT#  UPPER  LIMIT  FOR  THE  SECOND  ITEM. 

ARRPTR#  EITHER  1,  2,  OR  3 . IT  DETERMINES  THE  ARRAY  TO  WHICH  THE 
SECOND  ITEM  IS  PASSED. 


SUB  CHECK  (NUMTOK#,  LLIMIT#,  UPLIMIT#,  ARRPTR#) 

IF  NUMTOK#  ^ 0 THEN 

PRINT  " BLANK  LINE  HAS  BEEN  ENTERED  OR  GENERATED." 

EXIT  SUB 
END  IF 

IF  THE  INFORMATION  ON  THE  LINE  IS  SUCH  THAT  NO  FURTHER  ANALYSIS 
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IS  POSSIBLE,  EXIT  THE  SUBROUTINE.  IF  THERE  IS  ONE  ITEM,  AND  IT  IS 
THE  CORRECT  END  INDICATOR,  SET  A FLAG  TO  STOP  SUBROUTINE  CALLS 
FOR  THIS  TYPE  OF  EXCEPTION. 

IF  NUMTOK#  > 2 THEN 

PRINT  " MORE  THAN  TWO  ITEMS  ON  LINE." 

EXIT  SUB 

ELSE IF  NUMTOK#  = 2 AND  UCASE  $ ( TOKENS  $ ( 1 ) ) = "END"  THEN 

PRINT  " TWO  ITEMS  ON  LINE,  BUT  FIRST  ONE  IS  THE  END  INDICATOR." 

EXIT  SUB 

ELSEIF  NUMTOK#  = 1 AND  UCASE  $ ( TOKENS  $ ( 1 ) ) = "END"  THEN 
TOKENS $ ( 1 ) = "STOP" 

EXIT  SUB 

ELSEIF  NUMTOK#  = 1 AND  UCASE $ (TOKENS$ ( 1 ) ) <>  "END"  THEN 

PRINT  " ONE  ITEM  ON  LINE,  NOT  CORRECT  END  INDICATOR." 

EXIT  SUB 
END  IF 


THE  FIRST  ITEM  ON  THE  LINE  SHOULD  BE  THE  FLOOR  NAME  OR  RANGE.  CHECK 
TO  SEE  IF  IT  MATCHES  A NAME  THAT  HAS  BEEN  PREVIOUSLY  SPECIFIED. 

THE  RANGE  EXPANSION  SUBROUTINE  IS  CALLED  TO  CHECK  THE  FLOOR  RANGE 
SPECIFIED.  IF  THE  VALUE  OF  EXPECP  IS  0,  THE  RANGE  WAS  EXPANDED. 

IF  1,  THE  RANGE  COULD  NOT  BE  EXPANDED  DUE  TO  CERTAIN  ERRORS  FOUND 
IN  ITS  COMPONENTS.  IF  IT  IS  2,  THE  FLOOR  NAME  IS  A SINGLE  ITEM. 

CALL  RANGEEXP (TOKENS? ( 1 ) , FLRSUB1 , FLRSUB2 , FLREXCP1$,  FLREXCP2$,  EXPECP) 


PRINT  OUT  AN  ERROR  MESSAGE  IF  ONE  OR  MORE  OF  THE  NAMES  IN  THE  FLOOR 
RANGE  COULD  NOT  BE  FOUND  IN  THE  FLOOR  NAME  TABLE. 


IF  FLRSUB1 
PRINT  " 
PRINT  " 
END  IF 
IF  FLRSUB2 
PRINT  " 
PRINT  " 
END  IF 
IF  FLRSUB1 
PRINT  " 
PRINT  " 
END  IF 


= 0 


= 0 


= 0 


AND  EXPECP  = 0 THEN 
FLOOR  NAME  ";  FLREXCP1$;  1 
VALID  NAMES-  ";  FLOORS  $ 


NOT  FOUND. 


AND  EXPECP  = 0 THEN 
SECOND  FLOOR  NAME  ";  FLREXCP2$; 
VALID  NAMES-  ";  FLOORS $ 


NOT  FOUND." 


AND  EXPECP  = 2 THEN 
FLOOR  NAME  ";  FLREXCP1$;  1 
VALID  NAMES-  ";  FLOORS$ 


NOT  FOUND 


ERRFLAG  = 0 

DETERMINE  IF  THE  SECOND  ITEM  IS  A VALID  NUMBER. 
FOR  I = 1 TO  LEN ( TOKENS  $ ( 2 ) ) 

PTR$  = MID$ (TOKENS$ ( 2 ) , I,  1) 

IF  INSTR(". 0123456789",  PTR$ ) = 0 THEN 

PRINT  " INVALID  NUMBER  AFTER  FLOOR  NAME." 

ERRFLAG  = 1 
EXIT  FOR 
END  IF 

IF  INSTR( " . " , PTR$ ) = 1 AND  ARRPTR#  = 2#  THEN 
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PRINT  " NO  DECIMAL  POINTS  ALLOWED  IN  PEOPLE/FLR  NUMBER." 

ERRFLAG  = 1 
END  IF 
NEXT  I 

IF  THE  ITEM  IS  A VALID  NUMBER,  DETERMINE  IF  IT  LIES  BETWEEN  THE 
LOWER  AND  UPPER  LIMITS. 

IF  ERRFLAG  = 0 THEN 

NUMB  = VAL ( TOKENS  $ ( 2 ) ) 

IF  NUMB  < LLIMIT#  OR  NUMB  > UPLIMIT#  THEN 

PRINT  " NUMBER  AFTER  FLOOR  NAME  IS  OUT  OF  RANGE." 

ERRFLAG  = 1 
END  IF 
END  IF 

IF  ANY  ERRORS  HAVE  BEEN  DETECTED,  LEAVE  THE  SUBROUTINE. 

IF  ERRFLAG  = 1 THEN  EXIT  SUB 

SET  THE  APPROPRIATE  ARRAY  ROW(S)  TO  THE  VALUE  OF  THE  EXCEPTION. 

FOR  I = FLRSUB1  TO  FLRSUB2 

IF  ARRPTR#  = 1#  AND  UNITS  = 1 THEN  HGTDIF(I)  = NUMB  * (1  / .3048#) 

IF  ARRPTR#  = 1#  AND  UNITS  = 2 THEN  HGTDIF(I)  = NUMB 

IF  ARRPTR#  = 2#  THEN  people(I)  = NUMB 

IF  ARRPTR#  = 3#  THEN  PERCNT(I)  = NUMB 

NEXT  I 


END  SUB 


SUBROUTINE  HEIGHTS 


THIS  SUBROUTINE  FIRST  CALLS  THE  PARSING  ROUTINE  TO  ISOLATE  ALL 
FLOOR  NAMES  IN  THE  FLOOR  NAME  LINE  INPUT  BY  THE  USER.  IT  CHECKS  FOR 
SITUATIONS  WHICH  MAKE  FURTHER  ANALYSIS  IMPOSSIBLE.  IT  THEN  EXAMINES 
ALL  FLOOR  NAMES  WHICH  CONTAIN  THE  CHARACTER  THESE  ARE  TERMED 

RANGES  (such  as  2-10  is  the  range  of  floors  from  2 through  10).  ANY 
RANGES  FOUND  ARE  EXAMINED  CAREFULLY  FOR  POSSIBLE  AMBIGUITIES, 

INVALID  NUMBERS,  ETC.  IF  NO  ERRORS  ARE  DETECTED,  ANY  RANGES  THAT  HAVE 
BEEN  FOUND  ARE  EXPANDED.  NEXT,  THE  SUBROUTINE  PROMPTS  THE  USER  FOR 
HEIGHT  EXCEPTIONS.  AFTER  THESE  HAVE  BEEN  ENTERED  THE  ELEVATIONS  ARE 
COMPUTED  AND  THE  SUBROUTINE  IS  EXITTED. 


CURTOKS 
ELEMENT 
ELEVATION ( I ) 
FLOORS $ 

FLRNAMES$ (I) 
HGTDIF ( I ) 


LOCAL  VARIABLES,  AND  GLOBAL  VARIABLES  CHANGED  HERE: 
CONTAINS  STRING  VALUE  BEING  TESTED  AS  A POSSIBLE  RANGE. 
NUMBER  OF  SUBSTRINGS  FOUND  ON  THE  FLOOR  NAME  LINE. 
ELEVATION  OF  Ith  FLOOR  ABOVE  LOWEST  FLOOR. 

INITIALLY  CONTAINS  THE  FLOOR  NAME  LINE  INPUT  BY  THE 
USER,  THEN  IT  IS  COMPRESSED  TO  REMOVE  EXTRA  BLANKS. 
ARRAY  CONTAINING  THE  FLOOR  NAMES  AFTER  RANGE  EXPANSION. 
ARRAY  WHOSE  Ith  ROW  IS  THE  HEIGHT  DIFFERENCE  BETWEEN 
FLOOR  I AND  FLOOR  1+1,  WHERE  THE  LOWEST  FLOOR  IS  1. 
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KILLEXP 


PTR 

RANGE 1$ ( I ) 

RANGE2$ (I) 
RANGEMK 

STORE$ 

TOTFLRS 

TYPDIF 


IF  THIS  IS  SET  TO  1,  THE  MAIN  PROGRAM  KEEPS  ON  PROMPTING 
THE  USER  FOR  A NEW  FLOOR  NAME  LINE. 

COUNTER  USED  WHEN  FLRNAMESS  ARRAY  IS  CREATED. 

CONTAINS  THE  FIRST  RANGE  VALUE  OF  Ith  RANGE  FOUND.  FOR 
EXAMPLE,  IF  THE  4th  RANGE  FOUND  IS  7-10,  RANGE1$ (4) ="7" 
SIMILAR  TO  RANGE 1$ ( I ) , BUT  STORES  SECOND  RANGE  VALUES. 
LOCATION  OF  THE  CHARACTER  IN  A SUBSTRING.  IF  IT  IS 

NOT  0,  THE  SUBSTRING  IS  ASSUMED  TO  BE  A RANGE. 

CONTAINS  THE  HEIGHT  EXCEPTION  LINE. 

SET  EQUAL  TO  THE  TOTAL  NUMBER  OF  FLOORS  FOUND  AFTER 
EXPANSION. 

TYPICAL  FLOOR  TO  FLOOR  HEIGHT.  CAN  BE  OVERRIDDEN  BY 
HEIGHT  EXCEPTIONS  FOR  INDIVIDUAL  FLOORS. 


SUB  HEIGHTS 

DIM  RANGE1$ ( 200 ) , RANGE2$(200) 

KILLEXP  = 0 

PARSE  THE  LINE  OF  FLOOR  NAMES. 

CALL  PARSE ( FLOORS $,  NUMTOK#) 

ELEMENT  = NUMTOK# 

IF  NO  ITEMS  ARE  FOUND  ON  THE  FLOOR  NAME  LINE,  PRINT  ERROR  MESSAGE 
AND  EXIT  SUBROUTINE. 

IF  ELEMENT  = 0 THEN 
PRINT  ,,,, 

PRINT  " BLANK  LINE  HAS  BEEN  ENTERED  OR  GENERATED." 

KILLEXP  = 1 
EXIT  SUB 
END  IF 

IF  ONE  ITEM  IS  FOUND,  AND  IT  IS  NOT  A RANGE,  THEN  ONLY  ONE  FLOOR 
NAME  HAS  BEEN  INPUT. 

IF  ELEMENT  = 1 AND  INSTR ( TOKENS  $ ( 1 ) , = 0 THEN 

PRINT  ,,,, 

PRINT  " ONLY  ONE  FLOOR  IS  GIVEN." 

KILLEXP  = 1 
EXIT  SUB 
END  IF 

FLOORS $ = "" 

CHECK  EACH  SUBSTRING  TO  SEE  IF  IT  IS  A RANGE.  IF  SO,  TEST  FOR  COMMON 
ERROR  SITUATIONS. 

PRINT  "" 

FOR  I = 1 TO  ELEMENT 
CURTOK$  = TOKENS? (I) 

CALL  RANGEEXP ( CURTOK? , SUBS1,  SUBS2 , FLRVALl? , FLRVAL2? , EXPRANGE) 
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IF  EXPRANGE  = 1 THEN 
KILLEXP  = 1 

ELSEIF  EXPRANGE  = 2 THEN 
RANGE1$ ( I ) = "" 

FLOORS $ = FLOORS $ + " " + CURTOK$ 
ELSEIF  EXPRANGE  = 0 THEN 
RANGE 1$ ( I ) = FLRVAL1? 

RANGE2  $ ( I ) = FLRVAL2  $ 

FLOORS?  = FLOORS?  + " " + CURTOK? 
END  IF 
NEXT  I 


IF  ERRORS  HAVE  BEEN  DETECTED , EXIT  SUBROUTINE 
IF  KILLEXP  = 1 THEN  EXIT  SUB 

IF  NO  ERRORS  HAVE  BEEN  FOUND,  PERFORM  RANGE  EXPANSION(IF  NECESSARY), 
AND  INITIALIZE  THE  FLRNAMES?  ARRAY. 

PTR  = 1 

FOR  I = 1 TO  ELEMENT 

IF  RANGE 1? ( I ) = ""  THEN 

FLRNAMES? (PTR)  = TOKENS? (I) 

PTR  = PTR  + 1 
ELSE 

FOR  J = VAL ( RANGE 1 ? ( I ) ) TO  VAL ( RANGE2 ? ( I ) ) 

FLRNAMES? (PTR)  = STR?(J) 

FLRNAMES? (PTR)  = LTRIM? ( FLRNAMES? ( PTR) ) 

PTR  = PTR  + 1 
NEXT  J 
END  IF 
NEXT  I 


READ  IN  THE  TYPICAL  FLOOR  TO  FLOOR  HEIGHT  AND  THEN  THE  HEIGHT 
EXCEPTIONS. 

TOTFLRS  = PTR  - 1 
IF  UNITS  = 1 THEN 

INPUT  "Typical  floor  to  floor  height  (m)";  TYPDIFsi 
TYPDIF  = TYPDIFsi  * (1  / .3048#) 

ELSE 

INPUT  "Typical  floor  to  floor  height  (ft)";  TYPDIF 
TYPDIFsi  = TYPDIF  * .3048# 

END  IF 

FOR  K = 1 TO  TOTFLRS:  HGTDIF(K)  = TYPDIF:  NEXT  K 
FOR  I - 1 TO  1000 

PRINT  " Height  exceptions:" 

IF  UNITS  = 1 THEN 

PRINT  " Floor  range,  height (m)  (enter  END  to  stop)" 

END  IF 

IF  UNITS  = 2 THEN 

PRINT  " Floor  range,  height (ft)  (enter  END  to  stop)" 
END  IF 
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LINE  INPUT  STORES 

CALL  PARSE (STORES,  NUMTOK#) 

CALL  CHECK (NUMTOK#,  0#,  10000#,  1#) 
IF  TOKENS $ ( 1 ) = "STOP"  THEN  EXIT  FOR 
NEXT  I 


COMPUTE  THE  ELEVATIONS  OF  EACH  FLOOR,  STARTING  FROM  THE  LOWEST  ONE. 
ELEVATION ( 1 ) = 0 
FOR  1=2  TO  TOTFLRS  + 1 

ELEVATION ( I ) = ELEVATION (I  - 1)  + HGTDIF ( I - 1) 

NEXT  I 


END  SUB 


SUBROUTINE  PARSE 


THIS  SUBROUTINE  IS  PASSED  THE  STRING  STORES,  CHANGES  ANY 
COMMAS  TO  BLANKS,  ISOLATES  ALL  SUBSTRINGS  SEPARATED  BY  BLANKS 
WITHIN  THE  STRING,  AND  COUNTS  THEM.  THE  ARGUMENT  NUMTOK#  IS  SET  TO 
THE  COUNTED  NUMBER.  THE  PARSING  METHOD  DESTROYS  ALL  SUBSTRINGS 
WITHIN  STORES  EXCEPT  FOR  THE  RIGHTMOST  ONE. 


SUB  PARSE  (STORES,  NUMTOK#) 

FOR  COL  = 1 TO  LEN( STORES) 

IF  MID$ (STORES,  COL,  1)  = ","  THEN  MID$( STORES,  COL,  1)  = 
NEXT  COL 

STORES  = RTRIM$( STORES) 

FOR  I = 1 TO  200 

STORES  = LTRIMS (STORES) 

NEXTBLNK  = INSTR( STORES,  " ") 

IF  NEXTBLNK  = 0 THEN 
TOKENS $ ( I ) = STORES 
EXIT  FOR 
END  IF 

TOKENS $ ( I ) = MID$( STORES,  1,  NEXTBLNK  - 1) 

MID$( STORES,  1,  NEXTBLNK  - 1)  = STRINGS (100,  " " ) 

NEXT  I 

IF  LEN( STORES)  <>  0 THEN  NUMTOK#  = I:  ELSE  NUMTOK#  = 0 
END  SUB 


SUBROUTINE  RANGEEXP 


THIS  SUBROUTINE  IS  PASSED  A FLOOR  NAME  OR  FLOOR  RANGE.  IF  IT  IS 
PASSED  A RANGE,  IT  CHECKS  THE  TWO  PARTS  OF  THE  RANGE  FOR  VARIOUS  ERROR 
SITUATIONS,  ISOLATES  THE  FIRST  AND  SECOND  PART  OF  THE  RANGE,  AND 
FINDS  THE  LOCATIONS  OF  THE  FLOOR  NAMES  WITHIN  THE  FLOOR  NAME  TABLE. 
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EXPEXCP 

FLREXCP1 $ 

FLREXCP2  $ 

FLRSTR5 

FLRSUB1 

FLRSUB2 


ARGUMENTS : 

AN  OUTPUT  PARAMETER.  ITS  VALUE  IS  0 IF  THE  FLOOR  ITEM  IS  A VALID 
RANGE,  1 IF  IT  IS  AN  INVALID  RANGE,  AND  2 IF  THE  FLOOR  ITEM  IS 
A SINGLE  FLOOR  NAME. 

AN  OUTPUT  PARAMETER.  THE  VALUE  OF  THE  FIRST  ITEM  IN  THE  RANGE, 

OR  THE  ONLY  ITEM  IF  THERE  IS  NO  RANGE. 

AN  OUTPUT  PARAMETER.  THE  VALUE  OF  THE  SECOND  ITEM  IN  THE  RANGE, 
OR  THE  ONLY  ITEM  IF  THERE  IS  NO  RANGE. 

THE  CHARACTER  STRING  PASSED  TO  THIS  SUBROUTINE. 

THE  LOCATION  OF  THE  FIRST  FLOOR  NAME  WITHIN  THE  FLOOR  NAME  TABLE 
OR  0 IF  THE  NAME  IS  NOT  A VALID  FLOOR  NAME. 

THE  LOCATION  OF  THE  SECOND  FLOOR  NAME  WITHIN  THE  FLOOR  NAME 
TABLE,  OR  0 IF  THE  NAME  IS  NOT  A VALID  FLOOR  NAME. 


IMPORTANT  VARIABLES: 

CURTOK$  CONTAINS  THE  STRING  PASSED  TO  THE  SUBROUTINE. 

RANGE MX  THE  LOCATION  OF  A DASH  WITHIN  THE  FLOOR  RANGE. 

TEMPRANGE1 $ STORES  THE  FIRST  PART  OF  THE  RANGE. 

TEMPRANGE2 $ STORES  THE  SECOND  PART  OF  THE  RANGE. 


SUB  RANGEEXP  ( FLRSTR$ , FLRSUB1 , FLRSUB2 , FLREXCP1S,  FLREXCP2$,  EXPEXCP) 

INITIALIZE  SOME  OF  THE  OUTPUT  PARAMETERS. 

EXPEXCP  * 0 
FLRSUB1  = 0 
FLRSUB2  = 0 


CHECK  THE  SUBSTRING  TO  SEE  IF  IT  IS  A RANGE.  IF  SO,  TEST  FOR  COMMON 
ERROR  SITUATIONS. 

IF  FLRNAMES$ ( 1 ) <>  ""  THEN  PRINT  "" 

CURTOK$  * FLRSTR$ 

RANGE MX  = INSTR ( CURTOK$ , "-") 

IF  RANGE MX  = 0 THEN 
TEMPRANGE1 $ = "" 

ELSEIF  RANGE MX  = 1 OR  RANGE MX  ^ LEN ( CURTOK$ ) THEN 

PRINT  " MISPLACED  DASH  - NO  RANGE  EXPANSION  PERFORMED.  " ; CURTOK$ 
EXPEXCP  « 1 

ELSEIF  RANGEMK  <>  0 THEN 

TEMPRANGE1$  - MID$ (CURTOK$ , 1,  RANGE MX  - 1) 

TEMPRANGE2 $ ^ MID$ ( CURTOK$ , RANGEMK  + 1,  LEN ( CURTOK$ ) ) 

FOR  J = 1 TO  LEN ( TEMPRANGE 1 $ ) 


IF 

INSTR ( " 

0123456789" 

, MID$ (TEMPRANGE1$ , 

J, 

D)  - 

0 

THEN 

PRINT  " 

INCORRECT 

1ST  RANGE  IN  ";  CURTOK$ ; ", 

POS  ";  J 

EXPEXCP 

= 1 

END 

IF 

NEXT  J 

FOR  J 

= 1 TO 

LEN ( TEMP RANGE2$) 

IF 

INSTR ( " 

0123456789" 

, MID  $ ( TEMPRANGE2  $ , 

J, 

1))  = 

0 

THEN 

PRINT  " 

INCORRECT 

2ND  RANGE  IN  ";  CURTOK$;  ", 

POS  J 
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EXPEXCP  ■ 1 
END  IF 
NEXT  J 

IF  EXPEXCP  = 0 AND  VAL ( TEMPRANGE 1 $ ) >=  VAL ( TEMPRANGE2 $ ) THEN 
PRINT  " 1ST  RANGE  IS  NOT  LESS  THAN  2ND  RANGE  IN  " ; CURTOK$ 
EXPEXCP  = 1 
END  IF 
END  IF 


IF  ERRORS  HAVE  BEEN  DETECTED,  EXIT  SUBROUTINE 
IF  EXPEXCP  = 1 THEN  EXIT  SUB 


IF  THE  STRING  IS  A SINGLE  NAME,  THEN  SET  BOTH  TEMPORARY  RANGES  TO  IT. 
IF  TEMPRANGE  1$  = ,,,,  THEN 
TEMPRANGE 1$  = CURTOK$ 

TEMPRANGE2  $ = CURTOK$ 

EXPEXCP  = 2 
END  IF 

PERFORM  THE  FOLLOWING  SECTION  ONLY  WHEN  THE  FLOOR  NAMES  ARRAY 
HAS  ALREADY  BEN  CREATED. 

IF  NO  ERRORS  HAVE  BEEN  FOUND,  FIND  THE  LOCATION  OF  THE  FLOOR  NAMES 
WITHIN  THE  FLOOR  NAMES  ARRAY  (IF  THE  PASSED  VALUE  IS  A RANGE), 

IF  FLRNAMES$ ( 1 ) <>  ""  THEN 
FOR  I = 1 TO  TOTFLRS 

IF  TEMPRANGE 1 $ = FLRNAMES$ ( I ) THEN  FLRSUB1  = I 
IF  TEMPRANGE2$  = FLRNAMES$ ( I ) THEN  FLRSUB2  = I 
NEXT  I 
END  IF 

IF  NO  ERRORS  HAVE  BEEN  FOUND,  AND  THE  PASSED  VALUE  IS  A SINGLE  NAME, 
THEN  FIND  ITS  LOCATION  WITHIN  THE  FLOOR  NAMES  ARRAY. 

IF  FLRNAMES$ ( 1 ) <>  " " THEN 
FOR  I - 1 TO  TOTFLRS 

IF  TEMPRANGE 1$  = FLRNAMES$ ( I ) THEN  FLRSUB1  = I 
NEXT  I 
END  IF 


FLREXCP1$  = TEMPRANGE 1$ 
FLREXCP2  $ = TEMPRANGE 2$ 


END  SUB 


SUBROUTINE  TRIPTIME 


SUBROUTINE  TRIPTIME  COMPUTES  THE  TRAVEL  TIME  FROM  THE  DESIGNATED 
EXIT  FLOOR  TO  EACH  OF  THE  OTHER  FLOORS  IN  THE  BUILDING.  THE  COMPUTED 
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TIME  IS  FOR  ONE  WAY  TRAVEL  ONLY.  THERE  ARE  THREE  MAIN  SITUATIONS  WHICH 
CAN  OCCUR.  THESE  ARE: 

CASE  1 - DISTANCE  TO  BE  TRAVELLED  IS  SUCH  THAT  LINEAR  ACCELERATION 
IS  MAINTAINED.  THIS  OCCURS  WHEN  DISTANCE  IS  SMALL. 

CASE  2 - DISTANCE  TO  BE  TRAVELLED  IS  SLIGHTLY  GREATER.  NON-LINEAR, 

OR  TRANSITIONAL,  ACCELERATION  IS  REACHED. 

CASE  3 - DISTANCE  IS  GREAT  ENOUGH  THAT  MAXIMUM  ELEVATOR  CAR  VELOCITY 
IS  REACHED.  THIS  IS  THE  CONSTANT  VELOCITY  CASE. 


A 

LEVELTME 

51 

52 
ST 

T1 

T2 

T2CASE2 

T5 

TIMES ( I ) 

TOTFLRS 

TRANS 

TT 

V2 

VCUBED 

VI 

VMAX 


VARIABLES: 

ACCELERATION  RATE  OF  ELEVATOR  CAR. 

LEVELING  TIME  (s). 

DISTANCE  REQUIRED  FOR  ELEVATOR  CAR  TO  REACH  VELOCITY  VI. 
DISTANCE  CAR  REQUIRES  TO  REACH  VMAX  (MAXIMUM  VELOCITY), 
ACTUAL  DISTANCE  BETWEEN  EXIT  FLOOR  AND  FLOOR  FOR  WHICH 
THE  TRIPTIME  IS  BEING  COMPUTED. 

TIME  (s)  FOR  ELEVATOR  CAR  TO  TRAVEL  A DISTANCE  OF  SI. 
TIME  (s)  FOR  CAR  TO  ATTAIN  VMAX. 

TIME  (S)  FOR  CAR  TO  ATTAIN  MAXIMUM  VELOCITY  IN  CASE  2. 
TIME  (s)  FOR  ELEVATOR  CAR  TO  TRAVEL  THE  DISTANCE  ST, 

IN  CASE  3,  NOT  INCLUDING  LEVELING  TIME. 

ONE  WAY  TRIP  TIMES  COMPUTED  FOR  EACH  FLOOR. 

TOTAL  NUMBER  OF  FLOORS. 

TRANSITIONAL  COEFFICIENT.  V1=TRANS*VMAX . 

ONE  WAY  TRIP  TIME  FOR  THE  CURRENT  FLOOR. 

MAXIMUM  VELOCITY  OF  ELEVATOR  CAR  ATTAINED  IN  CASE  2. 

V**3 , WHERE  V IS  AS  DEFINED  ABOVE. 

MAXIMUM  ELEVATOR  CAR  VELOCITY  TIMES  THE  TRANSITIONAL 
COEFFICIENT. 

MAXIMUM  CAR  VELOCITY,  SPECIFIED  BY  THE  USER. 


SUB  TRIPTIME 

COMPUTE  VI,  SI,  S2,  Tl,  T2 . ONLY  PERFORMED  ONCE. 

VI  = TRANS  * VMAX 

51  = VI  * 2#  / (2#  * A) 

52  = (1#  / (3#  * A))  * (VMAX  A 3#  / VI  - VI  * 2#)  + SI 
Tl  = VI  / A 

T2  = ((VMAX  A 2#  - VI  * VI)  / (2#  * A * VI))  + Tl 
PRINT  "" 

PRINT  " 2*S1=  " ; 2 * SI 
PRINT  " 2*S2  = 2 * S2 

************************************************************************ 

* MAIN  LOOP  OF  THIS  SUBROUTINE.  FOR  EACH  FLOOR  OF  THE  BUILDING,  THE 

* DISTANCE  ST  IS  COMPUTED.  NEXT,  THE  LOOP  DETERMINES  IF  CASE  1,  CASE 

* 2,  OR  CASE  3 IS  THE  RELEVANT  SITUATION,  AND  IT  THEN  PERFORMS  THE 

* APPROPRIATE  CALCULATIONS. 

************************************************************************ 
FOR  I = 1 TO  TOTFLRS 
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ST  = ABS ( ELEVATION ( I ) - ELEVATION (EX I TFLR ) ) 


CASE  1 0 <=  ST  < 2*S1 

IF  0!  <=  ST  AND  ST  < 2 * SI  THEN 
TT  = 2 * SQR(ST  / A)  + LEVELTME 
TIMES (I)  = TT 

PRINT  " CASE  1 - FLOOR  # " ; I 
END  IF 

CASE  2 2 *S1  <=  ST  < 2*S2 

IF  2 * SI  <=  ST  AND  ST  < 2 * S2  THEN 

VCUBED  = VI  A 3 + (3  * A * VI  * ((ST  / 2#)  - SI)) 

V2  = VCUBED  A (1#  / 3#) 

T2CASE2  = ( (V2  * V2 ) - (VI  * VI))  / (2  * A * VI)  + T1 
TT  = 2 * T2CASE2  + LEVELTME 
TIMES ( I ) = TT 

PRINT  " CASE  2 - FLOOR  # " ; I 
END  IF 

CASE  3 2*S2  <=  ST 

IF  2 * S2  <=  ST  THEN 

T5  = 2 * T2  + (ST  - 2 * S2 ) / VMAX 
TT  = T5  + LEVELTME 
TIMES ( I ) = TT 

PRINT  " CASE  3 - FLOOR  # I 
END  IF 

NEXT  I 


END  SUB 
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Appendix  B ELVAC  Example  of  an  11  story  building 


The  example  of  this  appendix  was  developed  to  illustrate  many  of  ELVAC’s  features.  ELVAC  is  an  interactive  computer 
program,  and  Table  B.l  is  a listing  of  all  text  that  appears  on  the  screen  during  the  ELVAC  run  of  this  example.  Note 
that  in  table  B.l  bold  type  indicates  answers  typed  by  the  user  of  ELVAC. 

The  simulated  building  has  two  basement  levels,  a ground  floor,  and  ten  floors  above  ground  level.  The  typical  floor  to 
floor  height  is  3.7  m (approximately  12  feet).  Exceptions  to  this  are  the  two  basement  levels  and  the  ground  floor,  which 
are  somewhat  higher.  Also,  floors  3-5  are  somewhat  shorter,  and  it  should  be  noted  that  the  exceptions  for  these  three 
floors  are  input  into  the  program  in  one  line. 

There  are  typically  110  people  on  each  floor,  with  the  exceptions  being  the  two  basement  levels  (with  fewer),  and  floors 
G and  2-3  ( with  more).  The  percent  of  people  on  the  floors  that  use  elevators  to  evacuate  is  typically  85,  with  the 
exception  of  the  two  basement  levels  and  floors  2-7,  where  3 percent  of  the  people  use  elevators  while  the  rest  use 
stairways.  Note  again  that  only  one  statement  is  used  to  input  the  percent  usage  exceptions  for  floors  2-7. 

If  the  user  wants  the  program  will  list  basic  concepts  about  the  model  as  is  done  in  this  example. 


Table  B.l  Listing  of  ELVAC  Analysis  of  11  story  building 

★★★**★*★****★*********★★★★*★★**★**★★*★★***★★★**★★★★★*'***★**★**★* 

ELVAC  VERSION  1.00 
WRITTEN  BY  DANIEL  M.  ALVORD  AND 
JOHN  H.  KLOTE 

CONTRIBUTION  OF  THE  NATIONAL  INSTITUTES  OF  STANDARDS  AND 
TECHNOLOGY.  (U.S.) 

NOT  SUBJECT  TO  COPYRIGHT 

FOR  COMPILED  VERSION  ONLY  - PORTIONS  (C)  COPYRIGHT  MICROSOFT 
CORPORATION,  1988.  ALL  RIGHTS  RESERVED. 

DOCUMENTATION:  KLOTE, J.H.,  ALVORD , D . M . , AND  DEAL , S . , ANALYSIS  OF 
PEOPLE  MOVEMENT  DURING  ELEVATOR  EVACUATION,  NATIONAL  INSTITUTE 
OF  STANDARDS  AND  TECHNOLOGY,  (U.S.),  NISTIR  4730,  1992. 
**************************************************************** 


Do  you  want  to  read  about  the  model  (Y  or  N)?  Y 

Where  do  you  wish  the  general  information  to  appear? 
(a  filename,  PRN  for  printer,  or  ENTER  for  output 
to  the  screen. ) 

Basic  concepts  of  the  model 
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Table  B1 . Continued 


Basic  transfer  inefficiency-  a factor  that  allows  for 

rounding  off  of  probable  stops,  door  operating  time,  door 
starting  and  stopping  time,  and  the  unpredictability  of 
people.  A value  of  0.10  is  used  for  commonly  accepted 
arrangements  of  elevator  groups. 

Discharge  floor-  When  emergency  evacuation  starts, 
elevators  will  take  people  to  a discharge  floor  where 
passengers  on  the  elevators  will  exit.  This  floor  may 
lead  to  the  outside  or  to  an  area  of  relative  safety. 

Door  inefficiency-  Adjusts  for  any  increase  in  transfer 
time  over  that  of  a 1200  mm  (48  in)  wide  center  opening 
door . 

Press  ENTER  to  continue 

Dwell  time-  The  minimum  time  an  elevator  car  door  remains 
open.  The  time  used  in  this  program  is  4 seconds. 

Groups-  Elevators  are  located  in  groups  of  up  to  eight 
elevators.  The  elevators  in  a group  are  located  near  each 
other  and  are  controlled  together  to  move  people 
efficiently. 

Elevator  evacuation  start  up  time-  The  time  from  activation 
of  the  alarms (for  example)  to  the  start  of  the  round  trips 
that  evacuate  people.  If  the  elevators  are  operated 
automatically  during  evacuation,  one  starts  the  elevator 
evacuation  after  all  of  the  elevators  have  been  moved 
to  the  discharge  floor  and  the  people  in  them  have  left. 

In  the  case  of  manual  elevator  operation,  the  time  for 
elevators  operators  to  reach  the  cars  must  be  included. 

Motion-  Elevator  motion  starts  with  constant  acceleration, 
followed  by  transitional  acceleration  until  constant 
velocity  motion  at  the  normal  operating  velocity  of  the 
car  is  attained. 

Press  ENTER  to  continue.... 

Other  transfer  inefficiency-  accounts  for  inefficiencies 
due  to  unusual  elevator  car  shape  or  limited  physical 
capability  of  passengers.  In  office  buildings,  a value  of 
0 is  used. 

Round  trip-  a round  trip  starts  at  the  discharge  floor  and 
consists  of  the  sequence:  elevator  doors  close,  car 
travels  to  another  floor,  doors  open,  passengers  enter 
the  car,  doors  close,  car  travels  to  discharge  floor, 
doors  open,  and  passengers  leave  the  car.  Alternatively, 
it  may  be  defined  as  two  one  way  trips  and  a standing 
period. 
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Table  B1 . Continued 


Standing  time-  Twice  the  time  required  to  open  and  close 
the  elevator  doors,  plus  the  time  for  people  to  enter  the 
elevator,  plus  the  time  for  people  to  leave  the  elevator. 

Trip  inefficiency-  a multiplicative  factor  that  accounts 
for  trips  to  empty  floors  and  for  trips  to  pick  up  only  a 
few  stragglers. 

Press  ENTER  to  continue.... 

Concepts  inherent  to  the  computer  program------ 

Range-  A range  is  a set  of  floor  names  that  is  expanded  by 
the  program  into  a set  of  contiguous  floor  numbers.  For 
example,  the  range  2-10  is  expanded  into  2, 3, 4, 5, 6,...., 
9,10. 

Typical-  Used  to  save  effort  in  the  input.  It  is  best  shown 
by  example.  The  typical  inter  floor  height  of  a building 
typical  inter  floor  height  of  a building  is  the  most 
commonly  occurring  height  between  floors  (12  feet  is  an 
example).  There  is  a typical  inter  floor  height,  a 
typical  number  of  people  on  a floor,  and  a typical 
elevator  usage  percent. 


Enter  the  title  of  this  run. 

11  STORY  EXAMPLE  BUILDING. 

Enter  1 for  SI  units  or  2 for  English  units:  1 

Enter  floors  that  the  elevators  serve  (for  example-  B G 1-6) 
B2  B1  G 2-11 


Typical  floor  to  floor  height  (m)?  3.7 
Height  exceptions: 

Floor  range,  height (m)  (enter  END  to  stop) 

B2  4.5 

Height  exceptions: 

Floor  range,  height (m)  (enter  END  to  stop) 

B1  4.5 


Height  exceptions: 

Floor  range,  height (m)  (enter  END  to  stop) 


Height  exceptions: 

Floor  range,  height (m)  (enter  END  to  stop) 
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Table  B1 . Continued 


3-5  3.5 


Height  exceptions: 

Floor  range,  height (m)  (enter  END  to  stop) 

END 

Discharge  floor?  G 

Time  to  outside  after  leaving  elevator  (s)?  30 
Trip  inefficiency  factor  (for  example  .1)?  .1 

Number  of  elevator  cars  in  the  group?  4 
Normal  operating  velocity  of  car  (m/s)?  3 
Car  acceleration  (m/s**2)?  1.2 
Elevator  Full  Load  (people)?  16 


MENU  OF  DOOR  TYPES 


Door  type 

Door 

width 

Time  to  Open 
and  Close,  s 

Door  Transfer 
Inefficiency 

A 

Single-Slide 

900mm 

( 36in) 

6.6 

0.10 

B 

Two-Speed 

900mm 

( 36in) 

5.9 

0.10 

C 

Center-Opening 

900mm 

( 36in) 

4.1 

0.08 

D 

Single-Slide 

1100mm 

( 42in) 

7.0 

0.07 

E 

Two-Speed 

1100mm 

( 42in) 

6.6 

0.07 

F 

Center-Opening 

1100mm 

( 42in) 

4.6 

0.05 

G 

Two-Speed 

1200mm 

(48in) 

7.7 

0.02 

H 

Center-Opening 

1200mm 

(48in) 

5.3 

0 

I 

Two-Speed 

1400mm 

( 54in) 

8.8 

0.02 

J 

Center-Opening 

1400mm 

( 54in) 

6.0 

0 

K 

Two-Speed 

1600mm 

( 60in) 

9.9 

0.02 

L 

Center-Opening 

1600mm 

( 60in) 

6.5 

0 

M 

Two-Speed, 

1600mm 

( 60in) 

6.0 

0 

Center-Opening 


N OTHER 

★★★Pick  one  of  the  door  choices  A - M. 

If  you  wish  to  specify  another  type,  enter  N.  P 

Other  transfer  inefficiency?  0.0 

The  startup  time  for  automatically  operated  elevators  is  32.68  seconds. 
Do  you  want  to  enter  another  value  (Y  or  N)?  N 
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Table  B1 . Continued 


Typical  Number  of  People  per  Floor?  110 
People  per  floor  exception: 

Floor  Range,  people  (enter  END  to  stop) 

B2  40 

People  per  floor  exception: 

Floor  Range,  people  (enter  END  to  stop) 

B1  60 

People  per  floor  exception: 

Floor  Range,  people  (enter  END  to  stop) 

2-4  150 

People  per  floor  exception: 

Floor  Range,  people  (enter  END  to  stop) 

END 

Percent  of  people  on  typical  floor  using  elevator?  85 
Percent  usage  exceptions: 

Floor  Range,  Percent  (enter  END  to  stop) 

Bl  3 

Percent  usage  exceptions: 

Floor  Range,  Percent  (enter  END  to  stop) 

B2  3 

Percent  usage  exceptions: 

Floor  Range,  Percent  (enter  END  to  stop) 

2-7  3 

Percent  usage  exceptions: 

Floor  Range,  Percent  (enter  END  to  stop) 

END 

11  STORY  EXAMPLE  BUILDING. 

People  per  floor  is  110. 

Distance  between  floors  is  3.70  m or  12.14  ft. 

Elevator  usage  percent  is  85.000% 

Normal  car  velocity  is  3.00  m/s  or  590.55  fpm. 

Car  acceleration  is  1.20  m/s2  or  3.94  ft/s2. 

Car  full  load  is  16  people. 

Full  load  standing  time  is  40.48  s. 

Other  transfer  inefficiency  is  0.0000 
Trip  inefficiency  is  0.100 

Door  type:  F Center-Opening  1100mm  (42 in)  wide 

Doortime  s 4.600  Door  inefficiency  0.050 
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Table  B1 . Continued 


Floor 

Name 

Elevation 

m ft 

One 

Way 
Time  s 

Round 
Trip 
Time  s 

People 

on 

Floor 

Percent 

Usage 

Round 

Trips 

Time 

per 

Floor  s 

11 

47.4 

155.5 

15.9 

72.3 

110 

85.0 

6 

431.7 

10 

43.7 

143.4 

14.7 

69.8 

110 

85.0 

6 

416.9 

9 

40.0 

131.2 

13.4 

67.3 

110 

85.0 

6 

402.1 

8 

36.3 

119.1 

12.2 

64.9 

110 

85.0 

6 

387.3 

7 

32.6 

107.0 

11.0 

41.7 

110 

3.0 

1 

41.7 

6 

28.9 

94.8 

9.7 

39.2 

110 

3.0 

1 

39.2 

5 

25.4 

83.3 

8.6 

36.9 

110 

3.0 

1 

36.9 

4 

21.9 

71.9 

7.4 

36.9 

150 

3.0 

1 

36.9 

3 

18.4 

60.4 

6.2 

34.5 

150 

3.0 

1 

34.5 

2 

G 

14.7 

9.0 

48.2 

29.5 

4.9 

31.8 

150 

3.0 

1 

31.8 

B1 

4.5 

14.8 

4.4 

27.4 

60 

3.0 

1 

27.4 

B2 

0.0 

0.0 

6.1 

29.7 

40 

3.0 

1 

29.7 

Total  round  trip  time=  1916.1 

Start  up  time=  32.7 

Time  to  get  to  the  outside  after  leaving  the  elevator=  30.0 

Evacuation  time  using  4 elevators=  589.6 


(or  9.8  minutes) 


Do  you  want  to  save  the  output  (Y  or  N)?  N 

Rerun  program  with  new  usage  percentages  (Y  or  N)?  N 

Do  you  wish  to  rerun  the  entire  program  (Y  or  N)?  N 
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Appendix  C ELVAC  Example  of  a 21  story  building 


This  appendix  presents  the  ELVAC  analysis  of  the  21  story  example  in  the  paper.  ELVAC  is  an  interactive  computer 
program  and  Table  C.  1 is  a listing  of  the  computer  screen  during  this  ELVAC  run.  Note  that  in  table  B.  1 bold  type 
indicates  answers  typed  by  the  user  of  ELVAC. 


Table  C.l  Listing  of  ELVAC  Analysis  of  21  Story  Building 


a*************************************************************** 

ELVAC  VERSION  1.00 
WRITTEN  BY  DANIEL  M.  ALVORD  AND 
JOHN  H.  KLOTE 

CONTRIBUTION  OF  THE  NATIONAL  INSTITUTES  OF  STANDARDS  AND 
TECHNOLOGY.  (U.S.) 

NOT  SUBJECT  TO  COPYRIGHT 

FOR  COMPILED  VERSION  ONLY  - PORTIONS  (C)  COPYRIGHT  MICROSOFT 
CORPORATION,  1988.  ALL  RIGHTS  RESERVED. 

DOCUMENTATION:  KLOTE, J.H.,  ALVORD, D.M.,  AND  DEAL, S . , ANALYSIS  OF 
PEOPLE  MOVEMENT  DURING  ELEVATOR  EVACUATION,  NATIONAL  INSTITUTE 
OF  STANDARDS  AND  TECHNOLOGY,  (U.S.),  NISTIR  4730,  1992. 
**★★★★★*★***★★**★*★************★*★******★★*★★★*★**★*★★**★**★**** 

Do  you  want  to  read  about  the  model  (Y  or  N)?  N 

Enter  the  title  of  this  run. 

Example  21  Story  Building 

Enter  1 for  SI  units  or  2 for  English  units:  1 

Enter  floors  that  the  elevators  serve  (for  example-  B G 1-6) 

1-21 

Typical  floor  to  floor  height  (m)?  3.2 
Height  exceptions: 

Floor  range,  height (m)  (enter  END  to  stop) 

END 

Discharge  floor?  1 

Time  to  outside  after  leaving  elevator  (s)?  30 
Trip  inefficiency  factor  (for  example  .1)?  .1 

Number  of  elevator  cars  in  the  group?  1 
Normal  operating  velocity  of  car  (m/s)?  3 
Car  acceleration  (m/s**2)?  1.2 
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Table  C.l  Continued 


Elevator  Full  Load  (people)?  16 


MENU  OF  DOOR  TYPES 


Door  type 

Door 

width 

Time  to  Open 
and  Close,  s 

Door  Transfer 
Inefficiency 

A 

Single-Slide 

900mm 

( 36in) 

6.6 

0.10 

B 

Two-Speed 

900mm 

(36in) 

5.9 

0.10 

C 

Center-Opening 

900mm 

( 36in) 

4.1 

0.08 

D 

Single-Slide 

1100mm 

( 42in) 

7.0 

0.07 

E 

Two-Speed 

1100mm 

( 42in) 

6.6 

0.07 

F 

Center-Opening 

1100mm 

( 42in) 

4.6 

0.05 

G 

Two-Speed 

1200mm 

(48in) 

7.7 

0.02 

H 

Center-Opening 

1200mm 

( 48in) 

5.3 

0 

I 

Two-Speed 

1400mm 

( 54in) 

8.8 

0.02 

J 

Center-Opening 

1400mm 

( 54in) 

6.0 

0 

K 

Two-Speed 

1600mm 

( 60in) 

9.9 

0.02 

L 

Center-Opening 

1600mm 

( 60in) 

6.5 

0 

M 

Two-Speed, 

1600mm 

( 60in) 

6.0 

0 

Center-Opening 


N OTHER 

***Pick  one  of  the  door  choices  A - M. 

If  you  wish  to  specify  another  type,  enter  N.  H 

Other  transfer  inefficiency?  0.0 

The  startup  time  for  automatically  operated  elevators  is  41.25  seconds. 
Do  you  want  to  enter  another  value  (Y  or  N)?  N 

Typical  Number  of  People  per  Floor?  100 
People  per  floor  exception: 

Floor  Range,  people  (enter  END  to  stop) 

END 

Percent  of  people  on  typical  floor  using  elevator?  100 
Percent  usage  exceptions: 

Floor  Range,  Percent  (enter  END  to  stop) 

END 

Example  21  Story  Building 
People  per  floor  is  100. 

Distance  between  floors  is  3.20  m or  10.50  ft. 

Elevator  usage  percent  is  100.000% 

Normal  car  velocity  is  3.00  m/s  or  590.55  fpm. 

Car  acceleration  is  1.20  m/s2  or  3.94  ft/s2. 

Car  full  load  is  16  people. 

Full  load  standing  time  is  40.26  s. 

Other  transfer  inefficiency  is  0.0000 
Trip  inefficiency  is  0.100 

Door  type:  H Center-Opening  1200mm  (48in)  wide 

Doortime  s 5.300  Door  inefficiency  0.000 


One 


Round  People 


Time 


Table  C.l  Continued 


Floor  Elevation  Way  Trip  on  Percent  Round  per 

Name  m ft  Time  s Time  s Floor  Usage  Trips  Floor  s 


21 

64.0 

210.0 

24.4 

89.1 

100 

100.0 

7 

603 . 9 

20 

60.8 

199.5 

23.4 

87.0 

100 

100.0 

7 

589.0 

19 

57.6 

189.0 

22.3 

84.8 

100 

100.0 

7 

574.1 

18 

54.4 

178.5 

21.2 

82.7 

100 

100.0 

7 

559.1 

17 

51.2 

168.0 

20.2 

80.6 

100 

100.0 

7 

544.2 

16 

48.0 

157.5 

19.1 

78.4 

100 

100.0 

7 

529.3 

15 

44.8 

147.0 

18.0 

76.3 

100 

100.0 

7 

514.3 

14 

41.6 

136.5 

17.0 

74.2 

100 

100.0 

7 

499.4 

13 

38.4 

126.0 

15.9 

72.0 

100 

100.0 

7 

484.5 

12 

35.2 

115.5 

14.8 

69.9 

100 

100.0 

7 

469.5 

11 

32.0 

105.0 

13.8 

67.8 

100 

100.0 

7 

454.6 

10 

28.8 

94.5 

12 . 7 

65.6 

100 

100.0 

7 

439.7 

9 

25.6 

84.0 

11.6 

63.5 

100 

100.0 

7 

424.7 

8 

22.4 

73.5 

10.6 

61.4 

100 

100.0 

7 

409 . 8 

7 

19.2 

63.0 

9.5 

59.2 

100 

100.0 

7 

394.9 

6 

16.0 

52.5 

8.4 

57.1 

100 

100.0 

7 

379.9 

5 

12.8 

42.0 

7.4 

55.0 

100 

100.0 

7 

365.0 

4 

9.6 

31.5 

6.3 

52.8 

100 

100.0 

7 

350.1 

3 

6.4 

21.0 

5.2 

50.6 

100 

100.0 

7 

334.2 

2 

3.2 

10.5 

3.8 

47.8 

100 

100.0 

7 

314.7 

1 

0.0 

0.0 

Total  round  trip  time=  9234.9 

Start  up  time*  41.3 

Time  to  get  to  the  outside  after  leaving  the  elevator*  30.0 

Evacuation  time  using  1 elevators*  10229.7 


(or  170.5  minutes) 


Do  you  want  to  save  the  output  (Y  or  N)?  N 

Rerun  program  with  new  usage  percentages  (Y  or  N)?  N 

Do  you  wish  to  rerun  the  entire  program  (Y  or  N)?  N 
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Appendix  D ELVAC  Example  of  a building  with  multiple  rises 


This  building  has  38  floors  and  three  rises  of  elevators:  low  rise,  mid  rise, and  high  rise.  Each  rise  consists  of  a group 
of  6 elevators,  but  it  is  considered  that  only  5 of  them  are  being  used  for  evacuation,  and  one  is  out  of  service.  The 
elevator  cars  in  the  low  rise  group  travel  at  3.10  m/s  (610  fpm),  and  the  cars  in  the  mid  and  high  rise  groups  travel  at 
5.00  m/s  (984  fpm). 

The  ELVAC  program  was  used  to  analyze  each  of  the  rises  individually,  and  the  computer  output  is  listed  in  tables  Dl, 
D2,  and  D3.  In  the  case  of  the  low  rise  elevators,  all  floors  serviced  by  the  elevators  are  shown.  For  both  the  mid  and 
high  rise  elevators,  only  the  floors  involved  in  the  evacuation  were  included  in  the  ELVAC  analyses  (see  tables  D2  and 
D3).  The  evacuation  times  are  14.4,  22.5,  and  25.0  minutes  respectively  for  the  low,  mid,  and  high  rise  elevators.  Since 
these  evacuations  are  concurrent,  the  building  evacuation  time  is  25  minutes. 
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Table  D1  38  Story  Building:  Low  Rise  Elevators 

People  per  floor  is  110. 

Distance  between  floors  is  3.70  m or  12.14  ft. 

Elevator  usage  percent  is  85.000% 

Normal  car  velocity  is  3.10  m/s  or  610.24  fpm. 

Car  acceleration  is  1.20  m/s2  or  3.94  ft/s2. 

Car  full  load  is  16  people. 

Full  load  standing  time  is  40.48  s. 

Other  transfer  inefficiency  is  0.0000 
Trip  inefficiency  is  0.100 

Door  type:  F Center-Opening  1100mm  (42in)  wide 

Doortime  s 4.600  Door  inefficiency  0.050 


Floor 

Name 

Elevation 
m ft 

One 

Way 
Time  s 

Round 
Trip 
Time  s 

People 

on 

Floor 

Percent 

Usage 

Round 

Trips 

Time 

per 

Floor  s 

13 

44.4 

145.7 

17.5 

75.5 

110 

85.0 

6 

451.0 

12 

40.7 

133.5 

16.3 

73.1 

110 

85.0 

6 

436.7 

11 

37.0 

121.4 

15.1 

70.7 

110 

85.0 

6 

422.4 

10 

33.3 

109.3 

13.9 

68.3 

110 

85.0 

6 

408.0 

9 

29.6 

97.1 

12.7 

65.9 

110 

85.0 

6 

393.7 

8 

25.9 

85.0 

11.5 

63.5 

110 

85.0 

6 

379.4 

7 

22.2 

72.8 

10.3 

61.2 

110 

85.0 

6 

365.1 

6 

18.5 

60.7 

9.1 

58.8 

110 

85.0 

6 

350.8 

5 

14.8 

48.6 

7.9 

56.4 

110 

85.0 

6 

336.4 

4 

11.1 

36.4 

6.8 

33.3 

110 

3.0 

1 

33.3 

3 

7.4 

24.3 

5.5 

30.8 

110 

3.0 

1 

30.8 

2 

1 

3.7 

0.0 

12.1 

0.0 

4.0 

27.8 

110 

3.0 

1 

27.8 

Total  round  trip  time=  3635.4 

Start  up  time=  34.3 

Time  to  get  to  the  outside  after  leaving  the  elevator=  30.0 

Evacuation  time  using  5 elevators=  864.1 


(or  14.4  minutes) 
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Table  D2  38  Story  Building:  Hid  Rise  Elevators 

People  per  floor  is  110. 

Distance  between  floors  is  3.70  m or  12.14  ft. 

Elevator  usage  percent  is  85.000% 

Normal  car  velocity  is  5.00  m/s  or  984.25  fpm. 

Car  acceleration  is  1.90  m/s2  or  6.23  ft/s2. 

Car  full  load  is  16  people. 

Full  load  standing  time  is  40.48  s. 

Other  transfer  inefficiency  is  0.0000 
Trip  inefficiency  is  0.100 

Door  type:  F Center-Opening  1100mm  (42 in)  wide 

Doortime  s 4.600  Door  inefficiency  0.050 


Floor 

Name 

Elevation 
m ft 

One 

Way 
Time  s 

Round 
Trip 
Time  s 

People 

on 

Floor 

Percent 

Usage 

Round 

Trips 

Time 

per 

Floor  s 

26 

92.5 

303.5 

21.7 

83.9 

110 

85.0 

6 

501.7 

25 

88.8 

291.3 

21.0 

82.5 

110 

85.0 

6 

492.9 

24 

85.1 

279.2 

20.2 

81.0 

110 

85.0 

6 

484.0 

23 

81.4 

267.1 

19.5 

79.5 

110 

85.0 

6 

475.1 

22 

77.7 

254.9 

18.8 

78.0 

110 

85.0 

6 

466.2 

21 

74.0 

242.8 

18.0 

76.5 

110 

85.0 

6 

457.3 

20 

70.3 

230.6 

17.3 

75.1 

110 

85.0 

6 

448.5 

19 

66.6 

218.5 

16.5 

73.6 

110 

85.0 

6 

439.6 

18 

62.9 

206.4 

15.8 

72.1 

110 

85.0 

6 

430.7 

17 

59.2 

194.2 

15.1 

70.6 

110 

85.0 

6 

421.8 

16 

55.5 

182.1 

14.3 

69.1 

110 

85.0 

6 

412.9 

15 

51.8 

169.9 

13.6 

67.7 

110 

85.0 

6 

404.1 

14 

1 

48.1 

0.0 

157.8 

0.0 

12.8 

66.2 

110 

85.0 

6 

395.2 

Total  round  trip  time=  5830.0 

Start  up  time=  38.5 

Time  to  get  to  the  outside  after  leaving  the  elevator=  30.0 

Evacuation  time  using  5 elevators=  1351.1 


(or  22.5  minutes) 
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Table  D3  38  Story  Building:  High  Rise  Elevators 


People  per  floor  is  110. 

Distance  between  floors  is  3.70  m or  12.14  ft. 

Elevator  usage  percent  is  85.000% 

Normal  car  velocity  is  5.00  m/s  or  984.25  fpm. 

Car  acceleration  is  1.90  m/s2  or  6.23  ft/s2. 

Car  full  load  is  16  people. 

Full  load  standing  time  is  40.48  s. 

Other  transfer  inefficiency  is  0.0000 
Trip  inefficiency  is  0.100 

Door  type:  F Center-Opening  1100mm  (42in)  wide 

Doortime  s 4.600  Door  inefficiency  0.050 


Floor 

Name 

Elevation 
m ft 

One 
Way 
Time  s 

Round 
Trip 
Time  s 

People 

on 

Floor 

Percent 

Usage 

Round 

Trips 

Time 

per 

Floor  s 

38 

136.9 

449.1 

30.6 

101.7 

80 

85.0 

5 

487.8 

37 

133.2 

437.0 

29.9 

100.2 

80 

85.0 

5 

480.4 

36 

129.5 

424.9 

29.1 

98.7 

110 

85.0 

6 

590.5 

35 

125.8 

412.7 

28.4 

97.3 

110 

85.0 

6 

581.7 

34 

122.1 

400.6 

27.6 

95.8 

110 

85.0 

6 

572.8 

33 

118.4 

388.5 

26.9 

94.3 

110 

85.0 

6 

563.9 

32 

114.7 

376.3 

26.2 

92.8 

110 

85.0 

6 

555.0 

31 

111.0 

364.2 

25.4 

91.3 

110 

85.0 

6 

546.1 

30 

107.3 

352.0 

24.7 

89.9 

110 

85.0 

6 

537.3 

29 

103.6 

339.9 

23.9 

88.4 

110 

85.0 

6 

528.4 

28 

99.9 

327.8 

23.2 

86.9 

110 

85.0 

6 

519.5 

27 

96.2 

315.6 

22.5 

85.4 

110 

85.0 

6 

510.6 

1 

0.0 

0.0 

Total  round  trip  time= 

6473.9 

Start  up  time= 

47.4 

Time  to  get  to 

the  outside  after 

leaving 

the  elevator^ 

30.0 

Evacuation  time  using 

5 elevators^ 

1501.7 

(or  25.0  minutes) 
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